perl - 如何在 Perl 中将 yyyy-mm-dd hh:mm:ss 转换为 UTC？

Question

将日期时间格式 yyyy-mm-dd hh:mm:ss（可能是字符串）转换为 UTC，查看 DateTime 但我看不到如何解析字符串？

更新：

这工作正常吗？

require 5.002;

use strict;
use warnings;

use DateTime::Format::DateManip;

my $string = '2010-02-28 00:00:00';

my @dates = (
    $string
);

for my $date ( @dates ) {
    my $dt = DateTime::Format::DateManip->parse_datetime( $date );
    die "Cannot parse date $date, Please use a valid date in this format 'yyyy-mm-dd mm:hh:ss'"  unless defined $dt;
    print $dt."\n";
    $dt->set_time_zone( 'UTC' );
    print $dt."Z\n"; # Is this correct???
}

Answer 1

use DateTime::Format::ISO8601;
my $dt = DateTime::Format::ISO8601->parse_datetime('yyyy-mm-ddThh:mm:ss');

使用DateTime::Format::ISO8601模块解析该格式并返回一个DateTime对象。

Answer 2

看看这个 SO 问题，如何在 Perl 中验证日期？一个答案。

CPAN上还有一些不错的DateTime辅助模块。例如。它允许您像这样创建DateTime对象：DateTimeX::Easy

use DateTimeX::Easy;

my $a_date    = DateTimeX::Easy->new( '11/17/2008 12:01am' );

my $tomorrow  = DateTimeX::Easy->new( 'tomorrow' );

my $last_week = DateTimeX::Easy->new( 'last week' );

/I3az/

Answer 3

您需要 DateTime::Format::* 模块中的一种解析方法。

您的字符串看起来不太像 ISO8601 格式（即 'yyyy-mm-ddThh:mm:ss'），但它与MySQL的格式样式匹配：

use DateTime::Format::MySQL;
my $dt = DateTime::Format::MySQL->parse_datetime('2010-02-28 00:00:00');

print $dt->strftime("%Y %M %d %T");

产生：

2010 00 28 00:00:00