我试图在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; } }