Re: log parser fails

[aitap]

There is a trouble in your code at this line:

($source_host,$my_host,$internal_redirect,$date,$url_with_method,$status,$size,$referrer,$agent) = $line =~ m@^(\S+?), (\S+) (\S+) - - \[(\d{2})/(\w+)/(\d{4}):\s*(\d{2}):(\d{2}):\s*(\d{$

Your search pattern which began with @ is not terminated anywhere in the file. It seems that a lot of text from the end of this line was lost.

[kazak]

Sorry, this trouble occured during copying and that's not it. But thanks anyway. I'll fix it in order to show whole picture.

[aitap]

After moving some brackets in your regular expression it looks like this:

m@^(\S+?), (\S+) (\S+) - - (\[\d{2}/\w+/\d{4}:\s*\d{2}:\d{2}:\s*\d{2} 
+\+\d{4}\]) "(.*?)" (\d{3}) (\d+) "(.*?)" "(.*?)"@;

I can run the following code:

#!/usr/bin/perl
use warnings;
use strict;
use File::ReadBackwards;
use Data::Dumper;

my $fh_in = File::ReadBackwards->new($ARGV[0]) or die("Unable to open 
+\"$_\": $!\n");

my ($line,$source_host,$my_host,$internal_redirect,$date,$url_with_met
+hod,$status,$size,$referrer,$agent,$end_time,$check_time,$vhost_name)
+;
 while (defined($line = $fh_in->readline())) {
        chomp($line);
        print "$line|\n";
        ($source_host,$my_host,$internal_redirect,$date,$url_with_meth
+od,$status,$size,$referrer,$agent) = $line =~ m@^(\S+?), (\S+) (\S+) 
+- - \[(\d{2}/\w+/\d{4}:\s*\d{2}:\d{2}:\s*\d{2} \+\d{4})\] "(.*?)" (\d
+{3}) (\d+) "(.*?)" "(.*?)"@;
        print Data::Dumper->Dump(
                        [ \$line, \$source_host,\$my_host,\$internal_r
+edirect,\$date,\$url_with_method,\$status,\$size,\$referrer,\$agent ]
+,
                        [qw(*line *source_host *my_host *internal_redi
+rect *date *url_with_method *status *size *referrer *agent)],
                        ),
                        qq{\n};
        print "SH:$source_host, MH:$my_host, IR:$internal_redirect, D:
+$date, U:$url_with_method, S:$status, SZ:$size, R:$referrer, A:$agent
+\n";
}

on your sample data, and it seems to detect all fields properly.

_{// Удачи!}