期間中の毎日を表示

#----------------------------------------
#☆期間中の日を表示 ppm install date-simple
#----------------------------------------
use Date::Simple;
use strict;
my $day_from = Date::Simple->new(2005, 12, 1);
my $day_to = Date::Simple->new(2006, 2, 28);
my $day_cnt = $day_to - $day_from;
print $day_from," 〜 ",$day_to," = ",$day_cnt, "¥n";
my $day = $day_from;
for (my $i = 0; $i <= $day_cnt; $i++) {
print $i,":",$day->format("%Y/%m/%d"),"¥n";
my $nextday = $day->next;
$day = $nextday;
}