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


in reply to Re^2: GMT to PST format
in thread GMT to PST format

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

Replies are listed 'Best First'.
Re^4: GMT to PST format
by Anonymous Monk on Jun 20, 2010 at 08:32 UTC
    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]
      my $date_manip_object = new Date::Manip;

      [download]

      Where in the documentation did you find that usage? It doesn't work because the module does not work that way. Read Date::Manip.

[reply]
[d/l]
        10.1.10.178  -       -       [15/Jun/2010:23:30:34    +0000]      -
10.1.10.178  -       -       [16/Jun/2010:23:30:34    +0000]      -

        [download]
        The date and time is in GMT. I should convert to PST time. 
        #!/usr/bin/perl


use Date::Manip;

$date = ParseDate("2 days ago");
print $date

        [download]
        This works and why created a object doenst work.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom