perl - ネストされたループ内の Perl 明示的パッケージ

Question

この配列を宣言しました：

my @array

そして、このコードブロックでは...

for (my $i=0; $i<$j; $i++) {

      do {
              // stdout operations
      } while (! ($arr != 1 ));
}

エラーは具体的に} while (! ($arr != 1 ));は行にあります。

具体的なエラーは次のとおりです。 グローバルシンボル "$arr" には、exer4bernal.pl 行 71 で明示的なパッケージ名が必要です。

2 レベルのネストされたループでこの問題が発生するのはなぜですか? 私はこれを1レベルだけで持ったことはありません。これを修正するには何を変更すればよいですか? ありがとう！

score 3 · Accepted Answer

あなたが見ているのは、ループのネストとはまったく関係ありません。Perl が伝えようとしているのは、$arr変数について認識していないということです。またはということです@arrayか$#array？

2 に答える 2