時間系の関数

エポック(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";