Postfixが動作していない

Question

次の行は完全に

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

に動作します。しかし、この1はしていません。

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

それは私にこのようなエラーメッセージが得られます。

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

はなぜ？どうすればこの問題を解決できますか？

Answer 1

forの範囲のバージョンは$_を各要素に設定していますので、@{$_}では$_をあたかも配列参照のように参照しようとしています。

が

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

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

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

簡単な解決策は、あなたの配列参照のために別の変数を作成することです：これらはすべて同じです

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