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); }