如何打破Perl的循环？

我试图break在for循环中使用一条语句，但是由于我也在Perl代码中使用了严格的subs，因此出现了一条错误消息：

在./final.pl第154行中使用“严格限制”时，不允许使用标头“ break”。

有没有解决的办法（除了禁用严格的潜艇）？

我的代码格式如下：

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

哦，我找到了。您使用last而不是break

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

其他数据（以防您有更多问题）：

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

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

只需last在这里工作：

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

如果您有嵌套循环，last则将从最里面的循环退出。在这种情况下，请使用标签：

LBL_SCORE: {
    for my $entry1 (@array1) {
        for my $entry2 (@array2) {
            if ($entry1 eq $entry2) { # Or any condition
                last LBL_SCORE;
            }
        }
    }
 }

给定一条last语句将使编译器从两个循环中脱颖而出。可以在任意数量的循环中执行相同的操作，并且标签可以固定在任何位置。

在较大的迭代中，我喜欢使用中断。只需按Ctrl+ C退出：

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

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