Loose-Info.com
Last Update 2014/02/05
TOP - 参考用コード - Perl - 日付時刻出力(YYYY/MM/DD-HH:MM:SS)

sub localtime_14 { # 返す文字列 YYYY/MM/DD-HH:MM:SS my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); $year = $year + 1900; $mon = $mon + 1; return sprintf("%4d/%02d/%02d-%02d:%02d:%02d" , $year, $mon, $mday, $hour, $min, $sec); }