Witam. Mam następujący skrypt PERL:
#!usr/bin/perl
@plik = <STDIN>;
foreach(@plik)
{
if ($_ =~ /^((\d+)(\.\d+){3}) - - \[(\d{1,2})\/(\w{1,3})\/\d{4}(:\d\d){3} \+0100\] \"\w{3,7} ([\w\/\+\=\%\&\_\.\~\?\-]*)*([a-zA-Z0-9 \/\.\"-\;!]+)$/)
{
print "$1|$2|$3|$4|$5|$6|$7|$8\n";
}
}
Jednak gdy przekażę mu następujący napis:
67.195.37.95 - - [27/Feb/2009:23:32:08 +0100] "GET /taxonomy/term/1506 HTTP/1.0" 200 19127 "-" "Mozilla/5.0 (compatible; Yahoo! Slurp; http://help.yahoo.com/help/us/ysearch/slurp)"
wyświetla mi wszystko oprócz tego fragmentu URL, który powinien się znaleźć w zmiennej $7. Już nawet próbowałem parsować wszystkie ukośniki tego URL, myśląc, że wpływa to jakoś na wynik terminala.. Proszę o pomoc!