Estoy tratando de usar una sentencia break
en un bucle for
, pero como también estoy usando subs estrictos en mi código Perl, estoy recibiendo un error que dice:
Bareword "break" no se permite mientras "strict subs" en uso en ./final.pl línea 154.
¿Existe alguna solución para esto (además de desactivar los subs estrictos)?
Mi código tiene el siguiente formato:
for my $entry (@array){
if ($string eq "text"){
break;
}
}
Datos adicionales (en caso de que tenga más preguntas):
FOO: {
for my $i ( @listone ){
for my $j ( @listtwo ){
if ( cond( $i,$j ) ){
last FOO; # --->
# |
} # |
} # |
} # |
} # <-------------------------------
En una iteración grande me gusta usar las interrupciones. Sólo tiene que pulsar Ctrl + C para salir:
my $exitflag = 0;
$SIG{INT} = sub { $exitflag=1 };
while(!$exitflag) {
# Do your stuff
}