----------------------------------------------------
# 日時のフォーマット
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d",$year+1900,$mon+1,$mday,$week[$wday],$hour,$min);
($sec, $min, $hour) = (localtime())[0..2]; # 時分秒だけがほしいとき
----------------------------------------------------
