如何在Perl中打破循环？

Question

我正在尝试在break循环中使用for语句，但由于我在Perl代码中也使用了严格的subs，因此我收到错误消息：

  

Bareword <！> quot; break <！> quot;不允许的   <！> quot; strict subs <！> quot;在./final.pl中使用   第154行。

这是否有解决方法（除了禁用严格的潜艇）？

我的代码格式如下：

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

只需last就可以在这里工作：

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

如果你有嵌套循环，那么<=>将从最里面退出。在这种情况下使用标签：

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

给定<=>语句将使编译器从两个循环中出来。可以在任意数量的循环中完成相同的操作，并且可以在任何地方修复标签。

Answer 4

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

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

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