and - ¿Cómo rompo un bucle externo desde uno interno en Perl?

time in perl

Question

Supongamos que tengo un fragmento de código Perl como:

foreach my $x (@x) {
 foreach my $y (@z) {
  foreach my $z (@z) {
   if (something()) {
    # I want to break free!
   }
   # do stuff 
  }
  # do stuff
 }
 # do stuff
}

Si something() es verdadero, me gustaría romper (''durar'') todos los bucles.

¿Cómo puedo hacer eso? Pensé en dos opciones, ambas cosas que no me gustan: Usar algo GOTO Agregar una variable booleana que marcará que something() es verdadero, compruebe esta var en cada uno de los bucles antes de que se reanuden y last() si es verdadero.

Alguna sugerencia o pensamiento?

Gracias.

Answer 1

La sintaxis de "última ETIQUETA" se describe en la documentación .

Answer 2

Usa una etiqueta:

OUTER:
foreach my $x (@x) {
 foreach my $y (@z) {
  foreach my $z (@z) {
   if (something()) {
    last OUTER;
   }
   # do stuff 
  }
  # do stuff
 }
 # do stuff
}