Как нарушить внешний цикл из внутреннего в Perl?

Question

Предположим, у меня есть кусок кода Perl, как:

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() Если это правда, я хотел бы разбить («последний») все петли.

как я могу это сделать? я подумал о двух вариантах, оба из которых мне не нравится: Использование что-то GOTO Добавление булеву переменную, которая будет маркировать something() верно, проверьте этот вар в каждой из петель, прежде чем они докачку и last(), если это правда.

Любые предложения или мысли?

Спасибо.

Answer 1

Используйте ярлык:

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

Синтаксис "последний LABEL" описывается in the documentation.