Question

In perl, how do I convert date like

Thu Mar 06 02:59:39 +0000 2008

to

2008-03-06T02:59:39Z

Tried HTTP::Date, it works if the question did not have +0000 in the string 🙁

Answer 1

DateTime::Format::Strptime will do this conversion.

#!/usr/bin/perl
use strict;
use warnings;
use 5.012;
use DateTime::Format::Strptime;

my $date = 'Thu Mar 06 02:59:39 +0000 2008 ';

my( @strp ) = (
    DateTime::Format::Strptime->new( pattern => "%a %b %d %T %z %Y", ),
    DateTime::Format::Strptime->new( pattern => "%FY%T%Z", )
);

my $dt = $strp[0]->parse_datetime( $date );

print $strp[1]->format_datetime( $dt );

prints 2008-03-06T02:59:39UTC

Chris