05-14-2006, 05:15 PM
What's wrong with...
----------------
use Time::Local;
use strict; use warnings;
print "\n";
#determine both start and end dates for import
my $dt = timelocal(0,0,0,1,0,106); #1/1/2006
my $dtEnd = time();
While ($dt <= $dtEnd) {
print $dt;
$dt += (60*60*24);
};
----------------
----------------
use Time::Local;
use strict; use warnings;
print "\n";
#determine both start and end dates for import
my $dt = timelocal(0,0,0,1,0,106); #1/1/2006
my $dtEnd = time();
While ($dt <= $dtEnd) {
print $dt;
$dt += (60*60*24);
};
----------------