Date Manipulation in Perl

gjagadish · 09-26-2006, 02:08 AM

Hi,

How to get 7 consecutive dates in perl.
For eg: If i give 2006-09-12 as input, it should give output as

2006-09-12
2006-09-13
2006-09-14
2006-09-15
2006-09-16
2006-09-17
2006-09-18

pls help me
Jagadish

chrism01 · 09-26-2006, 02:46 AM

use Date::Calc qw(Add_Delta_Days);
($y2, $m2, $d2) = Add_Delta_Days($y,$m,$d, $offset );
# offset in days, so use a loop

gjagadish · 09-26-2006, 06:39 AM

hi chrism,

it works. thank u very much

Jagadish