How to read last lines from file?

[httpd]

Hello guys, I am writing a log parser script, i've got the problemm please look: I want to print the lines from big file that were added for last 5 minutes my scenario: 1. read the file from the end untill date in file < current date on 300 secs:

# tac /var/log/biglog |  perl -ne 'print; exit 0 if (($DateCurrent -$D
+ate) > 300 );'

where $DateCurrent - current date in unix timestamp: date +%s $Date - the date from log file, but the problem here is that it has format that I cannot convert to unixtimestamp for compare:

# tail -3 biglog
78.49.150.102 - - [01/Nov/2011:00:53:01 +0600] "GET /mem.png HTTP/1.1"
+ 200 51883 "http://net.com/" "Opera/9.80 (Windows NT 6.1; U; ru) Pres
+to/2.9.168 Version/11.52"
78.49.150.102 - - [01/Nov/2011:00:53:01 +0600] "GET /cpu.png HTTP/1.1"
+ 200 42875 "http://net.com/" "Opera/9.80 (Windows NT 6.1; U; ru) Pres
+to/2.9.168 Version/11.52"
78.49.150.102 - - [01/Nov/2011:00:53:01 +0600] "GET /traf.png HTTP/1.1
+" 200 48121 "http://net.com/" "Opera/9.80 (Windows NT 6.1; U; ru) Pre
+sto/2.9.168 Version/11.52"

any ideas?

Original content restored above by GrandFather

thanks, guys!

[moritz]

Go to http://search.cpan.org/ and search for a module that does it for you. There are many date and time related modules that can help you, and File::ReadBackwards can do the "read from the end" part.

[zentara]

#!/usr/bin/perl -w
use strict;
use File::Tail;

my $log = "/usr/local/apache2/logs/access_log";

my $file=File::Tail->new
(
name=>$log,
interval=>2,
maxinterval=>10
);

while (defined(my $line=$file->read)) {
print "$line";
}

[jethro]

How about using Time::Local to convert the date to unix timestamp.

[keszler]

>perl -E "use Date::Parse;say scalar gmtime str2time('01/Nov/2011:00:5
+3:01 +0600');"
Mon Oct 31 18:53:01 2011