Jeg forsøger at bruge en break
-erklæring i en for
-loop, men da jeg også bruger strict subs i min Perl-kode, får jeg en fejl, der siger:
Bareword "break" not allowed while "strict subs" in use at ./final.pl linje 154.
Er der en løsning på dette problem (ud over at deaktivere strict subs)?
Min kode er formateret som følger:
for my $entry (@array){
if ($string eq "text"){
break;
}
}
Yderligere oplysninger (hvis du har flere spørgsmål):
FOO: {
for my $i ( @listone ){
for my $j ( @listtwo ){
if ( cond( $i,$j ) ){
last FOO; # --->
# |
} # |
} # |
} # |
} # <-------------------------------
Ved en stor iteration kan jeg godt lide at bruge interrupts. Bare tryk på Ctrl + C for at afslutte:
my $exitflag = 0;
$SIG{INT} = sub { $exitflag=1 };
while(!$exitflag) {
# Do your stuff
}