in reply to List of dates between two dates
#!/perl -w use Date::Calc qw(Add_Delta_Days); use strict; print join(',', get_dates('2005-08-29', '2005-09-02')); #============================================================== sub get_dates { my ($from, $to) = @_; my @return_dates = $from; my $intermediate = $from; while ($intermediate ne $to) { $intermediate = sprintf "%04d-%02d-%02d", Add_Delta_Days(spli +t(/-/, $intermediate), 1) ; push @return_dates, $intermediate; } return @return_dates; }
|
|---|