localtime()だと my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(); もしくは my ($mday, $mon, $year) = (localtime)[3..5]; といつもやっていたが、Time::localtimeならオブジェクトとして値をとって扱える。 #! /usr/bin…