如何将符合ISO8601的字符串解析为perl的DateTime对象？

Question

我的最终目标是将当前日期和时间与 ISO8601 格式的 TVMaze API 返回的日期和时间进行比较，以确定是否已播出新的电视节目。

use strict;
use warnings;
use feature 'say';
use DateTime;
my $curmytime = DateTime->now()->format_cldr("yyyy-MM-dd'T'HH:mm:ssZ");
# Output is: Time now in UTC:2017-07-17T10:44:52+0000
say "Time now in UTC:". $curmytime;
my $strtobeparsed = '2017-04-09T21:00:00-0400';
# Next, parse the string "2017-04-09T21:00:00-0400" to a DateTime object

如何将字符串解析为 DateTime 对象？

Answer 1

DateTime 不解析日期和时间。为此，您需要使用 DateTime::Format:: 命名空间中的众多模块之一。如果没有可用的，您可以简单地使用DateTime::Format::Strptime。给它一个模式并给它一个字符串，它将为您创建一个 DateTime 对象。

use DateTime::Format::Strptime;
my $format = DateTime::Format::Strptime->new( pattern => '%FT%T%z');
my $dt = $format->parse_datetime( '2017-04-09T21:00:00-0400' );

然后您可以将其与另一个日期时间进行比较。

print "ok" if $dt < DateTime->now;

如果您想将其变成自己的类，那也相当简单。

package DateTime::Format::TVMaze;
use strict;
use warnings;
use DateTime;
use parent 'DateTime::Format::Strptime';

sub new {
    my $class = shift;
    my %params = @_;

    $params{pattern} = '%FT%T%z';

    return $class->SUPER::new(%params);
}

现在你可以像这样使用它

my $dt = DateTime::Format::TVMaze->new->parse_datetime('2017-04-09T21:00:00-0400');