Tivoli.pm   [plain text]

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