AndrewMcHorney schreef: > ($Seconds,$Minutes,$Hours,$Day,$Month,$Year) = > (localtime)[0,1,2,3,4,5]; > $Year = $Year + 1900;
Your $Month has a value from 0 to 11. > $Date = > $Month."-".$Day."-".$Year.".".$Hours.":".$Minutes.":".$Seconds; This sorts a lot better: my @date = (localtime)[5,4,3,2,1,0]; # YMDhms $date[0] += 1900; $date[1] += 1; my $date = sprintf "%s-%02d-%02d_%02d.%02d.%02d", @date; -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
