B-Wiki - perl/日付計算 - Water-Sunlight書式付き出力 † @d = localtime(); $d = sprintf("%02d/%02d/%02d %02d:%02d:%02d", $d[5]+1900,$d[4]+1,$d[3],$d[2],$d[1],$d[0]); print "$d\n"; 上と同じ事はPOSIX関数を使って以下のようにできる。(が、私は使っていない) use POSIX qw(strftime); @d = localtime(); $d = strftime("%Y/%m/%d %H:%M:%S", @d); print "$d\n"; ↑ 加算/減算 † timeによる日付はエポック(協定世界時刻(UTC)での1970年1月1日からの秒数)なので日単位の加算/減算は秒換算すればできる。 $t = $time(); $t += 3600*24; # 翌日 $t -= 3600*24; # 前日 ↑
