perl - 如何转换 yyyy-mm-dd hh :mm:ss into UTC in Perl?

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对象。