#!/usr/bin/perl
#file name: readlog.pl
open LOGFILE, "<",$ARGV[0] or die("Cannot read");
open TARGET, ">",$ARGV[1] or die ("Cannot write");
while (<LOGFILE> {
chomp($_);
if (m/filename.php/)
{
print TARGET $_;
print TARGET "\n";
}
}
close LOGFILE;
close TARGET;
how to use:
1) set permission to 755
2) ./readlog.pl log_file_name Target_file_name
eg.
./readlog.pl access_log.2009-01-19 records.txt
read log file access_log.2009-01-19 and write to a new file called records.txt