如何跳出 Perl 中的循环？

Question

我试图在 for 循环中使用 break 语句，但由于我也在 Perl 代码中使用严格的 subs，所以我收到一条错误消息：

不允许使用裸字“break” ./final.pl 使用“严格 subs” 第 154 行。

是否有解决方法（除了禁用严格 subs 之外）？

我的代码格式如下：

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

Answer 1

对于带有隐式循环的 Perl 单行代码（使用 -n 或 -p 命令行选项），请使用 last或 last LINE 来跳出迭代输入记录的循环。 例如，这些简单的示例全部打印输入的前 2 行：

echo 1 2 3 4 | xargs -n1 | perl -ne 'last if $. == 3; print;'
echo 1 2 3 4 | xargs -n1 | perl -ne 'last LINE if $. == 3; print;'
echo 1 2 3 4 | xargs -n1 | perl -pe 'last if $. == 3;'
echo 1 2 3 4 | xargs -n1 | perl -pe 'last LINE if $. == 3;'

全部打印：

1
2

perl 单行代码使用这些命令行标志：
-e ：告诉 Perl 查找内联代码，而不是在文件中。
-n ：一次循环输入一行，默认将其分配给 $_。
-p ：与 -n 相同，还在输入的每次循环迭代后添加 print 。

另请参见：

last 文档
上一个、下一个、重做、继续 - 示例
perlrun：命令行开关文档

---

last 的更多示例 在 Perl one-liners 中：

在第一次匹配后中断一个 liner 命令行脚本
打印大文件的前 N ​​行

Answer 2

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

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

它也在“perlsyn(1)”中的循环控制下进行了描述（UNIX 上的 man perlsyn -喜欢）。

Answer 3

附加数据（如果您有更多问题）：

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

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

Answer 4

只需 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 语句将使编译器从两个循环中退出。 可以在任意数量的循环中执行相同的操作，并且标签可以固定在任何地方。

Answer 5

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

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

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