Làm thế nào để tôi thoát ra khỏi một vòng lặp trong Perl?

Tôi đang cố gắng sử dụng một breakcâu lệnh trong một forvòng lặp, nhưng vì tôi cũng đang sử dụng chương trình con nghiêm ngặt trong mã Perl của mình, tôi gặp lỗi khi nói:

Bareword "phá vỡ" không được phép trong khi "subs subs" được sử dụng tại ./final.pl dòng 154.

Có một cách giải quyết cho việc này (bên cạnh việc vô hiệu hóa chương trình con nghiêm ngặt) không?

Mã của tôi được định dạng như sau:

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

Ồ, tôi đã tìm thấy nó. Bạn sử dụng cuối cùng thay vì nghỉ

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

Dữ liệu bổ sung (trong trường hợp bạn có thêm câu hỏi):

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

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

Đơn giản chỉ cần lastlàm việc ở đây:

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

Nếu bạn có các vòng lặp lồng nhau, thì lastsẽ thoát khỏi vòng lặp trong cùng. Sử dụng nhãn trong trường hợp này:

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

Đưa ra một lasttuyên bố sẽ làm cho trình biên dịch đi ra từ cả hai vòng lặp. Điều tương tự có thể được thực hiện trong bất kỳ số vòng lặp và nhãn có thể được cố định ở bất cứ đâu.

Trên một vòng lặp lớn, tôi thích sử dụng các ngắt. Chỉ cần nhấn Ctrl+ Cđể thoát:

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

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