Análise de string de data Perl com Time::Piece

Question

Por alguma razão, estou tendo muitos problemas para analisar strings de data usando Time::Piece.

Então isso funciona:

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;

Mas isso não acontece:

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

Também usei '%D %r' como string de formato, mas isso também não funciona.Algum de vocês tem ideia do porquê disso?Para referência, a hora é 1-12 (não 01-12) e o mês é 1-12 (não 0-12).

Obrigado!

Answer 1

Mudar

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

para

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