|
Greetings.
I need some help trying to define an array as below (5.8.x version):
# Extrai cada mestotal de Anototal -17/07/2002-11:43:26-
for ($x = 1; $x <= $Mes; $x++){ $Tempo = "Mestotal$x"; my @{$Tempo}; foreach (@Anototal){ push(@{$Tempo}, "$_") if (/\;[0-9]+\/0?$x\/[0-9]+\;[0-9]+\:[0-9]+\:[0-9]+\;/); #print "\nAno\:$x \; $_"; } } This code runs correct on PERL 5.6.x , but make an error on PERL 5.8.x
.
Please, anyone saw this situation ?
Cordially.
Roberto
|
<<Plano de fundo Dia claro.jpg>>
