perl - 如何验证 "yyyy-MM-dd' T'HH :mm:ssZ"date/timestamp in UTC with Perl?

Question

代码会很好，但方向正确的点也很好。

CPAN？正则表达式？

两种方式我都见过

“yyyy-MM-dd'T'HH:mm:ssZ”;

“yyyy-MM-ddTHH:mm:ssZ”;

Answer 1

Ether 与 DateTime 无疑走在正确的轨道上。使用 DateTime，您可以确保您拥有一个实际存在的时间，如果您自己写了支票，那么 2000 年 2 月 29 日的时间可能会过去。

您的格式看起来像 ISO8601 字符串。所以，使用DateTime::Format::ISO8601进行解析。

use DateTime;
use DateTime::Format::ISO8601;

my $string = '2010-02-28T15:21:33Z';

my $dt = DateTime::Format::ISO8601->parse_datetime( $string );
die "Impossible time" unless $dt;

您可以使用其他格式模块，例如 D::F::Strptime ，但最终您将重新创建 ISO8601 格式化程序已经执行的操作。