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な値で、
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く