Using perl to parse specific lines by date...

[u235sentinel]

While I've already done this with a simple shell script using grep, I 
was trying to figure out how I can do the same thing in perl.

I have an access_log  from my apache web server and while I can manually 
enter a date for my pattern match (which works fine), I can't seem to 
get it automated properly.  I suspect the $date variable may be passing 
`date +%d/%b` instead of  26/Dec to the pattern matching if statement. 

FYI...  when I run the program I pass the name of the file I want parsed 
( example:   code.pl access_log )

Any thoughts on my mistake?

Thx

---------------------

Script I'm using.

#!/usr/bin/perl

 $date=`date +%d/%b`;
 print "\n";
 print "Current search pattern is $date";
 print "\nStarting parse routine...\n\n";
 while (<>) {
   if (m|$date|) {
     print $_;
  } else {
 #  print "No match.\n";
  }
}


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>