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

Copyright(C) 2006-2011 CLAYPOT. All Rights Reserved.