💚 👩🏾‍🚀 🤞🏾 Perl6 - सशर्त कथन, लूप 🗄️ ㊙️ 👱

1. Perl6 में चर और शाब्दिक के साथ काम करने की विशेषताएं
2. पर्ल 6 - चर, अनाम ब्लॉकों पर संचालन

इस लेख में हम सशर्त बयानों और छोरों पर विचार करेंगे, साथ ही साथ उनके उपयोग पर कुछ छोटे प्रयोग भी करेंगे।

पर्ल 6 में उपर्युक्त कथनों को निष्पादन के लिए आवश्यक रूप से ब्लॉक प्राप्त करना चाहिए: भले ही आपको केवल एक अभिव्यक्ति को निष्पादित करने की आवश्यकता हो, इसे ब्लॉक के अंदर पारित किया जाना चाहिए: {अभिव्यक्ति; }

सशर्त बयान
सशर्त कथनों में से एक है, यदि इसका सामान्य रूप दिखता है:
```
if () {} elsif (1) {1} elsif (N) {N} else {} 
```
स्केलर चर में संग्रहीत ब्लॉक को स्थानांतरित नहीं किया जा सकता है, हालांकि, आप सहेजे गए ब्लॉक के निष्पादन पर निर्देश पारित कर सकते हैं: {$block();}
हालत के आसपास कोष्ठक वैकल्पिक हैं।
निम्नलिखित सशर्त विवरण तब तक है जब तक: यह Block1 निष्पादित करता है यदि कंडीशन 1 गलत है, अन्यथा, अन्य
```
 unless (1) {1} else {} 
```
हालांकि, एक निर्माण है जिसमें ब्लॉक का उपयोग नहीं करना संभव है, लेकिन एक ही ऑपरेटर:
```
  if ;  unless ; 
```
यदि वर्तमान कार्य के लिए आपको कुछ सरल चरणों का पालन करने की आवश्यकता है और उन्हें इसी तरह लिखना चाहते हैं, तो आप डिज़ाइन का उपयोग करके उन्हें निर्दिष्ट कर सकते हैं
```
 (1; 2;) if ; 
```
यदि आप निम्नलिखित निर्माण लिखते हैं
```
 my $var = ( if ($i==0 { 1+1; } ) 
```
तब अंतिम गणना की गई अभिव्यक्ति को चर $ var में दर्ज किया जाएगा, इस मामले में यदि $ i शून्य के बराबर है, तो परिकलित मान 2 होगा, यदि $ i शून्य के बराबर नहीं है, तो परिकलित मान निल (उसी प्रकार का निल) होगा
एक अन्य प्रकार का सशर्त विवरण है:
```
 given $value { when 'str1' {1} when 40 {2} when 'str1' {3} default {} } 
```
पहली सफल तुलना के बाद, दिए गए ऑपरेटर अपना काम बंद कर देते हैं: इसका मतलब है कि ब्लॉक 3 को कभी भी निष्पादित नहीं किया जाएगा।
तुलना उस क्रम में होती है जिसमें उन्हें संकेत दिया जाता है: यदि आप किसी भी समय के बाद डालते हैं, तो तुलना कभी नहीं पहुंचेगी, क्योंकि डिफ़ॉल्ट रूप से, कथन निष्पादित करना बंद कर देगा।
चक्र
इस समूह में एक कथन इस प्रकार है: यह निर्दिष्ट ब्लॉक को तब तक क्रियान्वित करता है जब तक कि शर्त पूरी न हो जाए
```
 $i = 0; while ($i<10) { $i++; } 
```
यह लूप 0 से 10 तक के सभी मानों पर आधारित होगा।
निम्नलिखित कथन तब तक है: जब तक यह शर्त सही न हो जाए, तब तक यह निर्दिष्ट ब्लॉक को निष्पादित करता है:
```
 $i = 0; until ($i>=10) { $i++; } 
```
यह चक्र पिछले वाले के समान ही करेगा।
शर्त के साथ, निर्माण संभव है
```
 say $a++ while $a<10; ($a++; say $a) until $a>9; 
```
निम्नलिखित लूप स्टेटमेंट का रूप है
```
 loop (; ; ) {} 
```
प्रारंभिक शर्तों ब्लॉक में, चर के प्रारंभिक मान सेट किए जाते हैं, अंत स्थिति में, एक अभिव्यक्ति निर्दिष्ट की जाती है जो यह निर्धारित करेगी कि लूप के अगले पुनरावृत्ति को शुरू करना है या नहीं, लूप के परिवर्तनशील चर में वे अभिव्यक्तियाँ होती हैं जिन्हें प्रत्येक पुनरावृत्ति के अंत में निष्पादित किया जाएगा।
```
 loop (my $i=0; $i<10; $i++) { say $i; } 
```
```
 loop (my ($i, $f) = (0,0); $i<10 && $f<5; $i++, $f++) { say $i, ' ', $f; } 
```
```
 loop (my $i=0; $i<10; ($i+=2; $i--)) { say $i; } 
```
लूप ऑपरेटर के लिए सरणियों के सभी तत्वों या इसे पारित की गई सूची पर पुनरावृति करने के लिए उपयोग किया जाता है
```
 for @mas, @mas2, 'string' 20, True -> $elemList {} 
```
प्रत्येक पुनरावृत्ति पर, सूची आइटम को $ elemOfMas चर के माध्यम से एक्सेस किया जा सकता है, जो इस आइटम का उपनाम है, लेकिन आप इस चर के माध्यम से सूची आइटम के मूल्यों को नहीं बदल सकते। सूची आइटम बदलने में सक्षम होने के लिए, '->' का उपयोग करें <-> 'के बजाय
सभी लूप स्टेटमेंट के लिए, आप अगला (अगला पुनरावृत्ति प्रारंभ करें), फिर से उपयोग कर सकते हैं (अगले पुनरावृत्ति पर वापस जाएँ), अंतिम (लूप बंद करें)।
एक चक्रवात के साथ एक चक्र शुरू करना संभव है:
```
 repeat {} while (); 
```
और
```
 repeat {} until ($x >= 10); 
```
इसके अलावा synopses में यह कहा गया है कि एक डिजाइन लिखना संभव होगा
```
 repeat while () {}; 
```
हालाँकि, नवीनतम संस्करण (12.09) में, इस डिज़ाइन ने एक त्रुटि उत्पन्न की।

Perl6 - सशर्त कथन, लूप

More articles: