Time::Pieceの罠
Time::Piece関連のことを連続して書いてますが、Time::Pieceを使う場合タイトルもインスパイアさせていただいたのみまくし日記の2003年の記事、Time::Piece の罠は目を通しておいた方がいいかもしれません。
試すと、
use Time::Piece;
my $time = time;
my @lt = localtime $time;
my $tp = Time::Piece->strptime(
sprintf("%04d-%02d-%02d %02d:%02d:%02d",$lt[5]+1900,$lt[4]+1,@lt[3,2,1,0]),
"%Y-%m-%d %T"
);
print $time,"\n";#A
print $tp->epoch,"\n";#B
BがAより32400秒速くなります
epochの値はgtimeな値で、9時間分大きな数字です。
DateTimeも便利そう。ただCPAN一発でインストールされるんだけど、依存が多いのはちょっと×