hirose31 https://blog.hatena.ne.jp/hirose31/ （ひ）メモ https://hirose31.hatenablog.jp/ perl use Time::Piece; use Time::Seconds; use POSIX qw(strftime); sub print_tp { my $tp = shift; printf("date : %s\ntzoffset: %d\nepoch : %d\nstrftime: %s\n\n", $tp->strftime('%Y-%m-%d %T'), $tp->tzoffset, $tp->epoch, strftime('%Y-%m-%d %T', localtime($tp->epoch)), ); } print "Time::Piece ",$Time::Piece::… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhirose31.hatenablog.jp%2Fentry%2F20110210%2F1297341952" title=" Time::Piece とタイムゾーンの甘い罠 - （ひ）メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-02-10 21:45:52 rich https://hirose31.hatenablog.jp/entry/20110210/1297341952 1.0 100%