in reply to How to increase date in a loop

If you want to use a module then look at DateTime or one of its friends (see http://datetime.perl.org/). Please don't use Date::Manip as it's rather old and slow.

However, it's quite possible to do simple data manipulation like this without using CPAN modules.

#!/usr/bin/perl use strict; use warnings; use Time::Local; use POSIX 'strftime'; my $start = date2epoch('2005-07-12'); my $end = date2epoch('2005-08-03'); my $curr = $start; while ($curr <= $end) { print strftime "%Y-%m-%d\n", localtime($curr); $curr += 24 * 60 * 60; } sub date2epoch { my ($y, $m, $d) = split /-/, shift; return timelocal(0, 0, 12, $d, $m - 1, $y - 1900); }
--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg