Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^3: GMT to PST format

by Krambambuli (Deacon)
on Jun 20, 2010 at 08:10 UTC ( #845605=note: print w/ replies, xml ) Need Help??


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.


Comment on Re^3: GMT to PST format
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] -
    Can't locate object method "new" via package "Date::Manip" at
      my $date_manip_object = new Date::Manip;

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

        10.1.10.178 - - [15/Jun/2010:23:30:34 +0000] - 10.1.10.178 - - [16/Jun/2010:23:30:34 +0000] -
        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
        This works and why created a object doenst work.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://845605]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2014-12-20 17:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (97 votes), past polls