yyyymmddhh24miss形式でカレント日時を返すサブルーチン
たまに使うのでメモ。
sub getSysdate { @da = localtime(time); $date = sprintf("%04d%02d%02d%02d%02d%02d", $da[5]+1900, $da[4]+1, $da[3], $da[2], $da[1], $da[0]); return $date; }
たまに使うのでメモ。
sub getSysdate { @da = localtime(time); $date = sprintf("%04d%02d%02d%02d%02d%02d", $da[5]+1900, $da[4]+1, $da[3], $da[2], $da[1], $da[0]); return $date; }