如何在 Perl 中跳出循环? [英] How do I break out of a loop in Perl?

问题描述

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

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:

不允许使用裸词break"./final.pl 中使用的strict subs"第 154 行.

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

是否有解决方法(除了禁用严格订阅)?

Is there a workaround for this (besides disabling strict subs)?

我的代码格式如下:

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

推荐答案

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

Oh, I found it. You use last instead of break

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

这篇关于如何在 Perl 中跳出循环?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！