Come posso interrompere un ciclo esterno da uno interno in Perl?

Question

Supponiamo che io sono un pezzo di codice Perl come:

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 
} 

Se something() è vero, vorrei spezzare ('ultimi') tutti i loop.

come posso farlo? Ho pensato a due opzioni, entrambi i quali non mi piacciono: Usando qualcosa GOTO Aggiunta di una variabile booleana che segnerà something() è vero, controllare questo var in ciascuna delle anse, prima di riprendere e last() se è vero.

Eventuali suggerimenti o pensieri?

Grazie.

Answer 1

Uso un'etichetta:

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

Answer 2

La sintassi "ultima etichetta" è descritto in the documentation.