如何解析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 :: namespace中的许多模块之一。如果没有可用的，你可以简单地使用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');