Bagaimana cara keluar dari loop di Perl?

Saya mencoba menggunakan breakpernyataan dalam satu forlingkaran, tetapi karena saya juga menggunakan subs ketat dalam kode Perl saya, saya mendapatkan pesan kesalahan:

Bareword "break" tidak diizinkan saat "subs ketat" digunakan di ./final.pl line 154.

Apakah ada solusi untuk ini (selain menonaktifkan subs ketat)?

Kode saya diformat sebagai berikut:

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

Oh, aku menemukannya. Anda menggunakan yang terakhir sebagai ganti break

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

Data tambahan (jika Anda memiliki pertanyaan lain):

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

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

Cukup lastbekerja di sini:

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

Jika Anda memiliki loop bersarang, maka lastakan keluar dari loop paling dalam. Gunakan label dalam hal ini:

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

Mengingat lastpernyataan akan membuat compiler untuk keluar dari kedua loop. Hal yang sama dapat dilakukan pada sejumlah loop, dan label dapat diperbaiki di mana saja.

Pada iterasi besar saya suka menggunakan interupsi. Cukup tekan Ctrl+ Cuntuk keluar:

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

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