我如何突破Perl的循环?

前端之家收集整理的这篇文章主要介绍了我如何突破Perl的循环?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我试图在for循环中使用break语句,但由于我也在我的Perl代码中使用严格的subs,我得到一个错误说:

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

有这个解决方法(除了禁用严格的subs)?

我的代码格式如下:

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

解决方法

哦,我找到了。你使用last而不是break
for my $entry (@array){
    if ($string eq "text"){
         last;
    }
}

猜你在找的Perl相关文章