perl - Perlでループから抜け出すにはどうすればよいですか？

Question

breakループでステートメントを使用しようとしていforますが、Perlコードでも厳密なサブを使用しているため、次のようなエラーが発生します。

./final.pl行154で「strictsubs」が使用されている間は、ベアワード「break」は許可されません。

これに対する回避策はありますか（厳密な潜水艦を無効にする以外に）？

私のコードは次のようにフォーマットされています：

for my $entry (@array){
    if ($string eq "text"){
         break;
    }
}

Answer 1

ああ、見つけた。休憩の代わりに最後を使用します

for my $entry (@array){
    if ($string eq "text"){
         last;
    }
}

Answer 2

追加データ (さらに質問がある場合):

FOO: {
       for my $i ( @listone ){
          for my $j ( @listtwo ){
                 if ( cond( $i,$j ) ){

                    last FOO;  # --->
                                   # |
                 }                 # |
          }                        # |
       }                           # |
 } # <-------------------------------

Answer 3

大規模な反復では、割り込みを使用するのが好きです。Ctrl+を押すだけCで終了します:

my $exitflag = 0;
$SIG{INT} = sub { $exitflag=1 };

while(!$exitflag) {
    # Do your stuff
}