perl - Time::Piece 返回错误值

Question

我正在尝试使用 Time::Piece 将日期从 yymmdd 转换为 YYYY-MM-DD模块。输入为 Nov 31, 2000 (20001131)，我得到的输出为 2000-12-01。实际上，Nov 31 甚至不存在。

use Time::Piece;
my $dt_str = Time::Piece->strptime('20001131', '%Y%m%d')->strftime('%Y-%m-%d');
print $dt_str;

我是不是漏掉了什么？

Answer 1

在内部，它只进行粗略的验证和错误报告，然后执行与 POSIX::mktime 相同的转换；月底之后的任何几天都会导致它把生产日期提前到下个月。这似乎有点不一致；因为它允许几天，我还希望它将“20005931”视为“2004-12-01”，但它却出错了。