¿Cómo puedo salir de un bucle en Perl?

loops break

Question

Estoy tratando de usar una instrucción break en un bucle for , pero como también estoy usando subs estrictos en mi código Perl, aparece un error que dice:

No se permite el término "interrupción" mientras que "subs estrictos" en uso en ./final.pl línea 154.

¿Hay una solución para esto (además de deshabilitar subs estrictos)?

Mi código tiene el siguiente formato:

for my $entry (@array){
if ($string eq "text"){
break;
}
}

Answer 1

Datos adicionales (en caso de tener más preguntas):

FOO: {
for my $i ( @listone ){
for my $j ( @listtwo ){
if ( cond( $i,$j ) ){
last FOO; # --->
# |
} # |
} # |
} # |
} # <-------------------------------

Answer 2

En una iteración grande me gusta usar interrupciones. Solo presiona Ctrl + C para salir:

my $exitflag = 0;
$SIG{INT} = sub { $exitflag=1 };
while(!$exitflag) {
# Do your stuff
}

Answer 3

Oh, lo encontré. Usas el last lugar de break

for my $entry (@array){
if ($string eq "text"){
last;
}
}

Answer 4

Simplemente el last funcionaría aquí:

for my $entry (@array){
if ($string eq "text"){
last;
}
}

Si tiene bucles anidados, el last saldrá desde el interior. Use etiquetas en este caso:

LBL_SCORE: {
for my $entry1 ( @array1 ){
for my $entry2 ( @array2 ){
if ( $entry1 eq $entry2 ){ # or any condition
last LBL_SCORE;
}
}
}
}

Dada la last afirmación hará que el compilador salga de ambos bucles. Lo mismo se puede hacer en cualquier cantidad de bucles, y las etiquetas se pueden arreglar en cualquier lugar.