Odd extra '1' showing up? Can someone explain this.
#!/usr/local/bin/perl -w
my $current_date = getdate();
print "$current_date\n";
exit();
sub getdate {
my ($day, $month, $year) = (localtime)[3,4,5];
my $current_date = printf("%04d-%02d-%02d", $year+1900, $month+1, $day);
return($current_date);
}This is the output: [server]# ./weeklyreport.pl 2002-07-061 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
