trAvis - MANAGER

Edit File: Tivoli.pm

# we need to comment this out or PAUSE might index it # pack age DateTime::Format::Tivoli; use DateTime::Format::Builder ( parsers => { parse_datetime => { strptime => '%h %e %k:%M:%S %Y', }, }, ); sub format_datetime { my ( $self, $dt ) = @_; my $z = $dt->clone->set_time_zone('GMT'); return $z->strftime('%h %e %k:%M:%S %Y'); } package main; my $parser = DateTime::Format::Tivoli->new(); my @dates = ( 'Nov 5 22:49:45 2003', '27/Apr/2003:19:45:11 -0400' ); for my $date (@dates) { my $dt = $parser->parse_datetime($date)->set_time_zone('Australia/Sydney'); print "$date => ", $dt->datetime, " => ", $parser->format_datetime($dt), "\n"; }