Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Converting datetime string to valid localtime value (seconds)

by grep (Monsignor)
on May 16, 2003 at 18:48 UTC ( #258734=note: print w/ replies, xml ) Need Help??

in reply to Converting datetime string to valid localtime value (seconds)

Hope fully this helps.

#!/usr/local/bin/perl use strict; use Date::Manip; my $line = qq{ - - [15/May/2003:01:05:02 -0600] "GET /foobar"}; my $date = ''; if ($line =~ /\[([^\]]+)\]/) { $date = $1; } my $secs = UnixDate(ParseDate($date),"%s"); print "$secs\n"; print localtime($secs)."\n";
You can also throw the DateCalc sub in there for your time zone.

UPDATE: Better solution

$Date::Manip::TZ = '-0800'; my $line = qq{ - - [15/May/2003:01:05:02 -0600] "GET /foobar"}; my $date = ''; if ($line =~ /\[([^\]]+)\]/) { $date = $1; } my $tz = (split(/\s+/,$date))[1]; print "$date $tz\n"; my $secs = UnixDate(Date_ConvTZ(ParseDate($date),$tz,'GMT' ),"%s"); print "$secs\n"; print localtime($secs)."\n";

Mynd you, mønk bites Kan be pretti nasti...

Comment on Re: Converting datetime string to valid localtime value (seconds)
Select or Download Code
Replies are listed 'Best First'.
Re: Re: Converting datetime string to valid localtime value (seconds)
by vladb (Vicar) on May 16, 2003 at 18:56 UTC
    grep++, thanks this has worked wonderfully! ;-)

    My code is a prime example of how one should never misuse (or shell I say 'abuse'?) a module for his own good. {grin}

    Thanks for the timezone conversion code, grep! ;) Although now I run this monitor script on the same server that the primary application (generating the logs) is running on, there's a possiblity of monitoring logs generated on remote servers residing in different time zones. This is when the timezone conversion will become handy.

    "We've all heard that a million monkeys banging on a million typewriters will eventually reproduce
    the entire works of Shakespeare. Now, thanks to the Internet, we know this is not true."

    Robert Wilensky, University of California

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2015-10-07 20:28 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (200 votes), past polls