Perlプログラムに関する各種メモ書き

日付出力の基本

結局CPANモジュールをダウンロードしている時間に下記コードをコピペした方が早い時があるので置いておきます。

my @wd = ("日","月","火","水","木","金","土");
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$year += 1900;
$mon += 1;
printf("今日は %04d 年 %02d 月 %02d 日(%s)\n",$year,$mon,$mday, $wd[$wday]);
printf("時刻は %02d 時 %02d 分 %02d 秒\n",$hour,$min,$sec);

関連エントリー

No.538
07/28 17:28

edit