Tom Phoenix wrote:
On 11/20/07, Gerald Wheeler <[EMAIL PROTECTED]> wrote:
No (access to) modules available other than what comes with the basic
perl installation.
*** I do NOT know how to increment (and format as "2007/01/01") date so
that it crosses over for each new month and know when it is a leap year.
That's a non-trivial problem.
Not too complicated either. This piece of code may or may not help the
OP move forward:
use Time::Local;
sub nextday {
my ($y, $m, $d) = split /\//, shift;
my $t = timegm 0, 0, 0, $d, $m-1, $y;
($d, $m, $y) = ( gmtime($t+24*60*60) )[3..5];
sprintf '%d/%02d/%02d', $y+1900, $m+1, $d;
}
print nextday('2007/11/20');
Also, Gerald, did you ever answer the questions that Tom asked you in
http://www.mail-archive.com/beginners@perl.org/msg90026.html ?
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
