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";
}