時間系の関数
エポック(1970/1/1 00:00:00 UTC)からの秒数を返す
time();
現地時間からエポックタイムを返す(あくまでも1970/1/1 00:00:00 UTCからの秒数)
use Time::Local; timelocal(0, 30, 17, 5, 10-1, 2009-1900);
time関数が返す形式をローカル時間のリストに変換する。
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(); print $year+1900, '-', $mon+1, '-', $mday, ' ', $hour, ':', $min, ':', $sec, "\n";