मैं पर्ल में लूप से कैसे टूट सकता हूं?

Question

मैं एक for पाश में एक break कथन का उपयोग करने के लिए कोशिश कर रहा हूँ, लेकिन जब से मैं अपने पर्ल कोड में सख्त बाद के चरणों का उपयोग कर रहा हूँ, मैं कह एक त्रुटि हो रही है:

Bareword "तोड़" के लिए अनुमति नहीं जबकि ./final.pl लाइन 154.

पर "सख्त बाद के चरणों" उपयोग में इसके लिए एक समाधान (सख्त बाद के चरणों को निष्क्रिय करने के अलावा) है? इस प्रकार

मेरे कोड स्वरूपित है:

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

Answer 1

ओह, मुझे मिल गया। एक बड़ी यात्रा मैं बीच में आता है का उपयोग कर पसंद पर

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

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

Answer 2

अतिरिक्त डेटा का उपयोग करें। बस छोड़ने की Ctrl +सी प्रेस: ​​

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

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

Answer 3

: आप (यदि आप अधिक प्रश्न हैं) lastbreak के बजाय

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

Answer 4

सीधे शब्दों में 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 बयान दोनों छोरों से बाहर आने के लिए संकलक कर देगा। किसी भी लूप में भी किया जा सकता है, और लेबल कहीं भी तय किए जा सकते हैं।