Perl Date String Parsing with Time :: Piece

Question

出于某种原因，我在使用Time :: Piece解析日期字符串时遇到了很多麻烦。

这样可行：

my $t = Time::Piece->strptime( 'Sunday, November 4, 2012 10:25:15 PM -0000' , "%A, %B %d, %Y    %I:%M:%S %p %z" );
  print $t;

但这不是：

my $temp_time = Time::Piece->strptime('7/23/2014 5:24:22 PM', "%-m/%-d/%Y %l:%M:%S %p");
print $temp_time;

我还使用了＆＃39;％D％r＆＃39;作为格式字符串，但也不起作用。你们有没有人知道为什么会这样？作为参考，小时为1-12（不是01-12），月份为1-12（不是0-12）。

谢谢！

Answer 1

更改

"%-m/%-d/%Y %l:%M:%S %p"

到

"%m/%d/%Y %l:%M:%S %p"