日付の差を求める

---

　Date::Simpleを使うと簡単です。

use Date::Simple;

my $date1 = Date::Simple->new('2005-10-01');
my $date2 = Date::Simple->new('2006-01-01');

my $diff = $date2 - $date1;
print $diff, "\n";

---

関連項目

・現在の日時を求める
・日付がある範囲内か調べる