Date::CalcモジュールのDelta_Days関数を使う。 普通の感覚なら2010年は1/1〜12/31のことで、365日あるものと思う。 プログラムでは都合上最後にインクリメントしないといけない。 use strict; use warnings; use Date::Calc qw/Delta_Days/; my @from = qw/…