Jak mogę złamać zewnętrzną pętlę z wewnętrznej pętli w Perlu?

Question

Załóżmy, że mam kawałek kodu Perl jak:

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 
} 

something() Jeśli to prawda, chciałbym złamać („ostatni”) wszystkie pętle.

jak mogę to zrobić? Myślałem o dwóch opcji, z których zarówno ja nie lubię: Korzystanie coś GOTO Dodawanie logiczną zmienną, która będzie oznaczyć something() jest prawdą, sprawdź to var w każdej z pętli zanim wznowi i last(), czy to prawda.

Wszelkie sugestie lub przemyślenia?

Dzięki.

Answer 1

użycie etykiety:

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

Składnia "last LABEL" jest opisany in the documentation.