Date::Calcは日付を扱うのに便利なモジュールです。
Perl標準のlocaltimeという関数もありますが、「年」は+1900、「月」は+1、「日」はそのままとかで面倒です。
たとえばyyyy/mm/ddという形式の日付を得たい場合、localtimeだと、
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(); printf "%04d/%02d/%02d", $year + 1900, $mon + 1, $mday;
としなければなりませんが、Date::Calcを使うと
use Date::Calc qw(:all); printf "%04d/%02d/%02d", Today();
と書けます。楽です。
