perl - 如何跳出 Perl 中的循环？

Question

我正在尝试在 for 循环中使用 break 语句，但由于我还在 Perl 代码中使用了严格的 subs，所以我得到了一个错误说:

Bareword "break" not allowed while "strict subs" in use at ./final.pl line 154.

是否有解决方法(除了禁用严格的子项)？

我的代码格式如下:

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

Answer 1

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

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

它还在“perlsyn(1)”(类 UNIX 上的 man perlsyn)中的循环控制下进行了描述。