Date::Manip module is installed.
But when I use the code
#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;
my $date_manip_object = new Date::Manip;
$date_manip_object->parse( '2 days ago' );
$date_manip_object->convert( 'GMT' );
my $gmt_ref = $date_manip_object->printf( '%Y%m%d') ;
while (<DATA>) {
my $err = $date_manip_object->parse_format('.*?\\[%d/%b/%Y:%T\s+%z
+\\].*', $_);
next if $err; # skip (?) lines that do not match the date format
my $input_line_date = $date_manip_object->printf( '%Y%m%d') ;
if ($input_line_date eq $gmt_ref) {
print;
}
}
__DATA__
10.1.10.178 - - [15/Jun/2010:23:30:34 +0000] -
10.1.10.178 - - [16/Jun/2010:23:30:34 +0000] -
Can't locate object method "new" via package "Date::Manip" at |