postfix per il ciclo in Perl non funziona come previsto

Question

La seguente riga funziona perfettamente

for(my $i=0; $i < ($max_size - $curr_size) ; $i++){ 
    push (@{$_}, 0); 
} 

Ma questo non lo fa.

push (@{$_}, 0) for (1 .. ($max_size - $curr_size)); 

Mi dà un messaggio di errore simile a questo:

Can't use string ("1") as an ARRAY ref while "strict refs" in use at coordReadEasy.pl line 124, <DATA> line 16. 

Perché? Come posso risolvere questo?

Answer 1

La versione gamma di for set $_ ad ogni elemento, così in @{$_} si sta cercando di risolvere il riferimento $_ come se si trattasse di un riferimento ad array. Queste sono tutte equivalenti:

for my $x (1..10) { 
    print "$x\n" 
} 

for (1..10) { 
    print "$_\n" 
} 

print "$_\n" for (1..10); 

La soluzione più semplice è quello di creare un'altra variabile per il vostro riferimento array:

push @{$ref}, 0 for 1 .. $max_size - $curr_size;