日付，時刻取得

日付，時刻を取得するコード。

#!/usr/bin/perl -w

@time = localtime(time);
# 0 秒 0-59
# 1 分 0-59
# 2 時 0-23
# 3 日 1-31
# 4 月 0-11
# 5 年 西暦-1900
# 6 曜日 0-6
# 7 年頭からの日数 0-365
# 8 サマータイムフラグ 0,1（サマータイム有効なら1）

printf( "%4d,%02d,%02d %02d:%02d:%02d\n", 
        $time[5], $time[4], $time[3], $time[2], $time[1] );