Perlの現在年月日時刻は以下のようにして取得できます。
use strict; use warnings; use utf8; # 時刻情報を全部取得して整形 my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(); print sprintf("%04d/%02d/%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);
ただ年月日しか必要ない時でも上記のように書いていて、ムダな変数ができちゃうなぁと思っていたのですが、以下のようにすれば良かったのですね。
use strict; use warnings; use utf8; # 年月日の時刻情報のみ取得 my ($mday, $mon, $year) = (localtime)[3,4,5]; print sprintf("%04d/%02d/%02d", $year+1900, $mon+1, $mday);
絶対あとで忘れる自信があるのでメモしておきます。