明日の日付を取得したかったんだけど、月をまたいだりすると計算が面倒なので

install Date::Simpleして

usestrict;

usewarnings;

useDate::Simple;

my$today=Date::Simple->today;

my$tomorrow=$today->next;

print”today:$today¥n”;

print”tomorrow:$tomorrow¥n”;

my($year,$month,$day)=$tomorrow->as_ymd;

print”$year年$month月$day日¥n”;

実行結果

today: 2007-03-23

tomorrow: 2007-03-24

2007年3月24日