Как выйти из цикла в Perl?

Я'пытаюсь использовать оператор break в цикле for, но поскольку я'также использую strict subs в своем коде Perl, я'получаю ошибку, говорящую:

Bareword "break" not allowed while "strict subs" используется в ./final.pl строка 154.

Есть ли обходной путь для этого (кроме отключения strict subs)?

Мой код отформатирован следующим образом:

for my $entry (@array){
    if ($string eq "text"){
         break;
    }
}
Peter Mortensen
Редактировал вопрос 16-го марта 2014 в 8:27
Программирование
perl loops break strict
19-го ноября 2008 в 8:21
30 просмотров
Комментарии к вопросу (1)
Решение

О, я нашел это. Вы используете last вместо break.

for my $entry (@array){
    if ($string eq "text"){
         last;
    }
}
Alexander Roskamp
Редактировал ответ 5-го января 2018 в 5:41
Комментарии (4)

Дополнительные данные (если у вас возникнут вопросы):


FOO: {
       for my $i ( @listone ){
          for my $j ( @listtwo ){
                 if ( cond( $i,$j ) ){

                    last FOO;  # --->
                                   # |
                 }                 # |
          }                        # |
       }                           # |
 } #
Peter Mortensen
Редактировал ответ 16-го марта 2014 в 8:28
Комментарии (2)

Просто «last» будет работать здесь:

for my $entry (@array){
    if ($string eq "text"){
         last;
    }
}

Если у вас есть вложенные петли, то last выйдет из самой внутренней части. Используйте метки в этом случае:

LBL_SCORE: {
       for my $entry1 ( @array1 ){
          for my $entry2 ( @array2 ){
                 if ( $entry1 eq $entry2 ){   # or any condition
                    last LBL_SCORE;
                 }
          }
       }
 }

Учитывая, что last оператор заставит компилятор выходить из обоих циклов. То же самое можно сделать в любом количестве циклов, а метки можно исправить в любом месте.

Комментарии (0)

На большой итерации мне нравится использовать прерывания. Просто нажмите Ctrl + C для выхода:

my $exitflag = 0;
$SIG{INT} = sub { $exitflag=1 };

while(!$exitflag) {
    # Do your stuff
}
Peter Mortensen
Редактировал ответ 20-го марта 2017 в 5:40
Комментарии (2)