Time::Piece strptime 与 %X 有问题

Question

我正在尝试在 perl v5.26 中使用 Time::Piece->strptime() 解析以下数据：

my $str = "Mon Feb 21 02:54:49 IST 2022";
my $time_zone = substr($str, 20, 3);
my $date_time = Time::Piece->strptime($str, "%a %b %e %X $time_zone %Y");
print "Todays date/time is : $date_time";

但是，当我执行上面的代码 sn-p 时，我得到了以下错误：

Error parsing time at /usr/local/lib64/perl5/Time/Piece.pm line 598.

我不确定我错过了什么，任何帮助都会非常有帮助。

Answer 1

%X 没有最后的AM/PM 只能在字符串的末尾起作用。

my $str = "Mon Feb 21 IST 2022 02:54:49";
my $time_zone = substr($str, 11, 3);
warn $time_zone;
my $date_time = Time::Piece->strptime($str, "%a %b %e $time_zone %Y %X");
print "Todays date/time is : $date_time";

或

my $str = "Mon Feb 21 02:54:49 AM IST 2022";
my $time_zone = substr($str, 23, 3);
my $date_time = Time::Piece->strptime($str, "%a %b %e %X $time_zone %Y");
print "Todays date/time is : $date_time";

但我的测试表明这种行为取决于 Perl 版本，所以可能根本不要使用 %X（与 %I:%M:%S %p 相同）并切换到 %T（与 %H:%M:%S 相同）。

my $str = "Mon Feb 21 02:54:49 IST 2022";
my $time_zone = substr($str, 20, 3);
my $date_time = Time::Piece->strptime($str, "%a %b %e %T $time_zone %Y");
print "Todays date/time is : $date_time";