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

Question

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

Bareword "break" не допускается, пока "строгие сабы" используются на ./final.pl строка 154.

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

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

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

Answer 1

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

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

Answer 2

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

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

                    last FOO;  # --->
                                   # |
                 }                 # |
          }                        # |
       }                           # |
 } # <-------------------------------

Answer 3

Просто 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, компилятор выйдет из обоих циклов. То же самое можно сделать в любом количестве циклов, а метки можно фиксировать в любом месте.

Answer 4

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

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

while(!$exitflag) {
    # Do your stuff
}