Опитвам се да използвам оператора break
в цикъл for
, но тъй като използвам и strict subs в кода на Perl, получавам грешка, която гласи:
Bareword "break" not allowed while "strict subs" in use at ./final.pl ред 154.
Има ли някакъв начин за заобикаляне на този проблем (освен деактивирането на strict subs)?
Кодът ми е форматиран по следния начин:
for my $entry (@array){
if ($string eq "text"){
break;
}
}
Допълнителни данни (в случай че имате още въпроси):
FOO: {
for my $i ( @listone ){
for my $j ( @listtwo ){
if ( cond( $i,$j ) ){
last FOO; # --->
# |
} # |
} # |
} # |
} # <-------------------------------
При голяма итерация ми харесва да използвам прекъсвания. Просто натиснете Ctrl + C, за да излезете:
my $exitflag = 0;
$SIG{INT} = sub { $exitflag=1 };
while(!$exitflag) {
# Do your stuff
}