http://www.perlmonks.org?node_id=845524


in reply to GMT to PST format

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

[download]

Replies are listed 'Best First'.
Re^2: GMT to PST format
by Anonymous Monk on Jun 20, 2010 at 07:08 UTC
    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"?)

    [download]
    I am getting the error as above. Please tell me is there any other way to do this.
[reply]
[d/l]
[reply]
[d/l]
[select]
        Not necessarily - it works as is here, Date::Manip::Date is brought in by Date::Manip.
[reply]
      If you can, install Date::Manip from CPAN. Otherwise, try a solution with one of the modules you have installed, maybe DateTime.
[reply]
        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]      -

        [download]
        Can't locate object method "new" via package "Date::Manip" at
[reply]
[d/l]

In Section Seekers of Perl Wisdom