ฉันจะแยกออกจากวงใน Perl ได้อย่างไร

ฉันพยายามที่จะใช้breakคำสั่งในforวง แต่เนื่องจากฉันยังใช้หมวดย่อยอย่างเข้มงวดในรหัส Perl ของฉันฉันได้รับข้อผิดพลาดว่า:

Bareword "break" ไม่ได้รับอนุญาตในขณะที่ใช้ "subs subs" อย่างเข้มงวดที่. /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
}