如何在Perl中打破循环？

梦里梦外; 2022-11-27 08:48 171阅读 0赞

本文翻译自：[How do I break out of a loop in Perl?][How do I break out of a loop in Perl]

*I'm trying to use a `break` statement in a `for` loop, but since I'm also using strict subs in my Perl code, I'm getting an error saying:* **我试图在`for`循环中使用`break`语句，但由于我在Perl代码中也使用了严格的subs，我收到一个错误说：**

> *Bareword "break" not allowed while "strict subs" in use at ./final.pl line 154.* **在./final.pl第154行使用“严格潜艇”时不允许使用Bareword“break”。**

*Is there a workaround for this (besides disabling strict subs)?* **有没有解决方法（除了禁用严格的潜艇）？**

*My code is formatted as follows:* **我的代码格式如下：**

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

--------------------

### \#1楼 ###

参考：[https://stackoom.com/question/1gSA/如何在Perl中打破循环][https_stackoom.com_question_1gSA_Perl]

--------------------

### \#2楼 ###

*Oh, I found it.* **哦，我找到了。** *You use [last][] instead of [break][]* **你使用[last][]而不是[break][]**

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

--------------------

### \#3楼 ###

*Additional data (in case you have more questions):* **其他数据（如果您有更多问题）：**

FOO: {
           for my $i ( @listone ){
              for my $j ( @listtwo ){
                     if ( cond( $i,$j ) ){
    
                        last FOO;  # --->
                                       # |
                     }                 # |
              }                        # |
           }                           # |
     } # <-------------------------------

--------------------

### \#4楼 ###

*On a large iteration I like using interrupts.* **在大型迭代中，我喜欢使用中断。** *Just press Ctrl \+ C to quit:* **只需按Ctrl \+ C退出：**

my $exitflag = 0;
    $SIG{INT} = sub { $exitflag=1 };
    
    while(!$exitflag) {
        # Do your stuff
    }

--------------------

### \#5楼 ###

*Simply `last` would work here:* **`last`可以在这里工作：**

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

*If you have nested loops, then `last` will exit from the innermost.* **如果你有嵌套循环，那么`last`将退出最里面。** *Use labels in this case:* **在这种情况下使用标签：**

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

*Given `last` statement will make compiler to come out from both the loops.* **鉴于`last`语句将使编译器从两个循环中出来。** *Same can be done in any number of loops, and labels can be fixed anywhere.* **可以在任意数量的循环中完成相同的操作，并且标签可以在任何地方固定。**

[How do I break out of a loop in Perl]: https://oldbug.net/q/1gSA/How-do-I-break-out-of-a-loop-in-Perl
[https_stackoom.com_question_1gSA_Perl]: https://stackoom.com/question/1gSA/%E5%A6%82%E4%BD%95%E5%9C%A8Perl%E4%B8%AD%E6%89%93%E7%A0%B4%E5%BE%AA%E7%8E%AF
[last]: http://perldoc.perl.org/functions/last.html
[break]: https://perldoc.perl.org/functions/break.html