¿Cómo salgo de un bucle en Perl?
Estoy intentando usar una breakdeclaración en un forbucle, pero como también estoy usando substituciones estrictas en mi código Perl, aparece un error que dice:
No se permite la palabra simple "break" mientras se utilizan "subs estrictos" en ./final.pl línea 154.
¿Existe alguna solución para esto (además de deshabilitar las suscripciones estrictas)?
Mi código tiene el siguiente formato:
for my $entry (@array){
if ($string eq "text"){
break;
}
}
Aceptado
Ah, lo encontré. Usas último en lugar de descanso.
for my $entry (@array){
if ($string eq "text"){
last;
}
}
También se describe en Control de bucle en "perlsyn(1)" ( man perlsynen formato UNIX).
Datos adicionales (por si tienes más dudas):
FOO: {
for my $i ( @listone ){
for my $j ( @listtwo ){
if ( cond( $i,$j ) ){
last FOO; # --->
# |
} # |
} # |
} # |
} # <-------------------------------
