With the following code (unmodified from your post):
use strict; use warnings; my $log_pattern = q{(.*) \- \- \[(.*)\] \"(.*) (.*)\?(.*) HTTP\/(.*)\" + ([0-9]*) ([0-9]*) \"(.*)\" \"(.*)\" \"(.*)\"}; my $entry = '67.60.185.31 - - [14/Jan/2008:02:25:54 -0800] "GET /displ +ay.cgi?2643943|3334115 HTTP/1.1" 200 55 "-" "Mozilla/5.0 (Macintosh; +U; Intel Mac OS X; en-us) AppleWebKit/523.10.6 (KHTML, like Gecko)" " +67.60.185.31"'; $entry =~ /$log_pattern/; print $1, "\n"; print $2, "\n"; print $3, "\n"; print $4, "\n"; print $5, "\n"; print $6, "\n"; print $7, "\n"; print $8, "\n"; print $9, "\n"; print $10, "\n"; print $11, "\n";
I get the output
67.60.185.31 14/Jan/2008:02:25:54 -0800 GET /display.cgi 2643943|3334115 1.1 200 55 - Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-us) AppleWebKit/523.10.6 + (KHTML, like Gecko) 67.60.185.31
How are you calling your expression?
In reply to Re: Parsing Apache logs with Regex
by kennethk
in thread Parsing Apache logs with Regex
by TheGorf
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |