Ik'probeer een break
statement in een for
loop te gebruiken, maar omdat ik'ook strict subs gebruik in mijn Perl code, krijg ik een foutmelding die zegt:
Bareword "break" niet toegestaan terwijl "strict subs" in use at ./final.pl lijn 154.
Is hier een workaround voor (naast het uitschakelen van strict subs)?
Mijn code is als volgt geformatteerd:
for my $entry (@array){
if ($string eq "text"){
break;
}
}
Aanvullende gegevens (voor het geval u meer vragen heeft):
FOO: {
for my $i ( @listone ){
for my $j ( @listtwo ){
if ( cond( $i,$j ) ){
last FOO; # --->
# |
} # |
} # |
} # |
} # <-------------------------------
Op een grote iteratie gebruik ik graag interrupts. Druk gewoon op Ctrl + C om te stoppen:
my $exitflag = 0;
$SIG{INT} = sub { $exitflag=1 };
while(!$exitflag) {
# Do your stuff
}