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); }
"The first rule of Perl club is you do not talk about
Perl club."
-- Chip Salzenberg
In reply to Re: How to increase date in a loop
by davorg
in thread How to increase date in a loop
by nejcPirc
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |