如何在Perl中将ISO8601时间戳转换为unix时间？

Question

给定一个以ISO8601格式(例如20100723T073000)表示日期/时间的字符串，我最终需要使用一个通用的strftime格式字符串将其解析为用户提供的格式。为此，我需要将ISO8601时间戳转换为Unix时间戳。Perl有大量的日期/时间操作模块，我有点不知所措。对如何做到这一点有什么建议吗？

Answer 1

处理日期、时间、持续时间、时区和格式的冠军模块是DateTime。一旦获得了DateTime对象，就可以对其执行大量操作，比如增加/减少其他DateTime对象或DateTime::Duration对象，或者以另一种格式打印出来。

use strict; use warnings;
use DateTime;
use DateTime::Format::ISO8601;

my $dt = DateTime::Format::ISO8601->parse_datetime('20100723T073000');

print $dt->strftime('%F %T');

照片："2010-07-23 07:30:00“

Answer 2

如果您没有或不想安装DateTime::Format::ISO8601模块，则可以使用HTTP::Date解析至少一部分ISO8601

$ perl -MHTTP::Date -wle 'print str2time("2013-11-30T23:05:03")'
1385845503

与任何日期处理一样，请谨慎处理时区问题。