note
kilinrax
Use <a href="http://search.cpan.org/doc/JHI/perl-5.7.0/lib/Time/Local.pm">Time::Local</a> and
<a href="http://search.cpan.org/doc/JHI/perl-5.7.0/ext/POSIX/POSIX.pod">POSIX</a>::strftime:
<code>
#!/usr/bin/perl -w
use strict;
use POSIX;
use Time::Local;
my $time = '31Nov00';
my ($day, $mon, $year) = ($time =~ /^(\d+)([A-Za-z]+)(\d+)$/);
my @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
my $i;
my $mon_num;
for($i=0; $i<=$#months; $i++){
if ($mon eq $months[$i]) {
$mon_num = $i;
last;
}
}
my $epochsecs = timelocal(0, 0, 0, $day-1, $mon_num, $year);
my $tomorrowsecs = $epochsecs + 86400;
my @tomorrow = localtime($tomorrowsecs);
my $timestr = POSIX::strftime("%d%b%y", 0, 0, 0, @tomorrow[3..5]);
print $timestr;
exit;
</code>
44362
44362