Як мені вирватися з циклу в Perl?

Я намагаюся використовувати breakоператор у forциклі, але оскільки я також використовую суворі підпункти у своєму коді Perl, я отримую помилку:

"Перерва" у баревові не дозволена, тоді як "суворі підписки" використовуються за адресою ./final.pl 154.

Чи існує вирішення цього питання (окрім відключення суворої підписки)?

Мій код відформатований таким чином:

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

О, я знайшов це. Ви використовуєте останній замість перерви

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

Додаткові дані (якщо у вас є додаткові запитання):

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

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

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

На великій ітерації мені подобається використовувати переривання. Просто натисніть Ctrl+, Cщоб вийти:

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

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