日付をパース

MovableTypeの日付でソートしたい

こんな形式 => 02/03/2008 01:31:21 PM

use Time::Piece;
use Memoize;
memoize('time_piece');

my @sorted_DATE = sort { $self->time_piece($a) <=> $self->time_piece($b) } @DATE;

sub time_piece {
return Time::Piece->strptime( $_[1], '%m/%d/%Y %H:%M:%S %p' );
}

しまった、%Hでなくて、%Iだった。
そしてTime::Piece1.15では00時はパースエラーになるので、置換してやる必要がある。
もしくはTime::Piece1.20にアップデート。