postfix for-Schleife in Perl wird nicht wie erwartet funktioniert

Question

Die folgende Zeile funktioniert perfekt

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

Aber das tut man nicht.

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

Es gibt mir eine Fehlermeldung wie folgt aus:

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

Warum? Wie kann ich das lösen?

Answer 1

Die Palette Version von for Sets $_ auf jedes Element, so in @{$_} sind Sie zu dereferenzieren versucht $_, als ob es ein Array Referenz waren. Diese sind alle gleichwertig:

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

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

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

Die einfache Lösung ist eine weitere Variable für Ihr Array-Referenz zu erzeugen:

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