Comment on

Hope fully this helps.

#!/usr/local/bin/perl
use strict;
use Date::Manip;

my $line = qq{1.2.3.4 - - [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";

[download]

You can also throw the DateCalc sub in there for your time zone.

UPDATE: Better solution

$Date::Manip::TZ = '-0800';
my $line = qq{1.2.3.4 - - [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";
[download]

grep

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

In reply to Re: Converting datetime string to valid localtime value (seconds) by grep
in thread Converting datetime string to valid localtime value (seconds) by vladb

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

Outside of code tags, you may need to use entities for some characters:

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


There's more than one way to do things
	PerlMonks

Comment on

The best material for plates (tableware) is: