perl - 日期转换

Question

在 perl 中，我如何转换日期

Thu Mar 06 02:59:39 +0000 2008

到

2008-03-06T02:59:39Z

尝试过 HTTP::Date，如果问题的字符串中没有 +0000，它就可以工作 :(

Answer 1

DateTime::Format::Strptime将执行此转换。

#!/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 );

打印 2008-03-06T02:59:39UTC

克里斯