2006-07-11 日付の加減算を行う 備忘録: Perl use Date::Calc qw(Add_Delta_YMD); my ($year,$month,$day) = Add_Delta_YMD($year,$month,$day,$Dy,$Dm,$Dd);