perl - 如何将符合 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 does not parse dates and times .为此，您需要使用 DateTime::Format::命名空间中的众多模块之一。如果没有可用的，您可以简单地使用 DateTime::Format::Strptime .给它一个 pattern并向它传递一个字符串，它会为您创建一个 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' );

然后您可以将它与另一个 DateTime 进行比较。

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');