Re: GMT to PST format

[Krambambuli]

Using Date::Manip and ssuming your local time is PST, you could use something like

#!/usr/bin/perl

use strict;
use warnings;

use Date::Manip;

my $date_manip_object = new Date::Manip::Date;

$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]      -

[Anonymous Monk]

Unfortunately we don't have installed this module.

Can't locate object method "new" via package "Date::Manip::Date" (perh
+aps you forgot to load "Date::Manip::Date"?)

I am getting the error as above. Please tell me is there any other way to do this.

[ikegami]

use Date::Manip;

should be

use Date::Manip::Date;

[Krambambuli]

Not necessarily - it works as is here, Date::Manip::Date is brought in by Date::Manip.

[Krambambuli]

If you can, install Date::Manip from CPAN. Otherwise, try a solution with one of the modules you have installed, maybe DateTime.

[Anonymous Monk]

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