Perl6 - ऑपरेटर ओवरलोडिंग

1. Perl6 में चर और शाब्दिक के साथ काम करने की विशेषताएं
2. पर्ल 6 - चर, अनाम ब्लॉकों पर संचालन
3. पर्ल 6 - सशर्त कथन, लूप
4. पर्ल 6 - कार्यों के साथ काम करें
5. पर्ल 6 - कक्षाएं
6. पर्ल 6 - आई / ओ मॉड्यूल
7. पर्ल 6 - टिप्पणियाँ, श्वेत स्थान, कोष्ठक
एक बार जब मैंने पहले से ही कार्यों और उनके उपयोग की विशेषताओं (संख्या 4) के बारे में एक लेख लिखा था। अब मैं उनकी किस्मों में से एक पर विचार करना चाहता हूं - ऑपरेटरों।


शायद हम infix ऑपरेटरों के साथ शुरुआत करेंगे:
Infix ऑपरेटर्स का एक उदाहरण '+' ऑपरेटर है

sub infix:<MyNewOperator> (Int $a, Str $b) { return "Call: $a + $b"; } say 10 MyNewOperator "abc"; 

परिणामस्वरूप, हम स्क्रीन पर देखेंगे

 Call: 10 + abc 

जैसा कि आप देख सकते हैं, हम ऑपरेटर नामों में सीमित नहीं हैं, क्योंकि यह सी ++ में है - हम केवल "MyNewOperator" को '+' में बदलकर नए जोड़ सकते हैं या मौजूदा लोगों को बदल सकते हैं। नतीजतन, हमें अतिरिक्त ऑपरेटर मिलता है, जो दो तारों को कास्टिंग और ग्लूइंग करने के बजाय हमारे द्वारा निर्दिष्ट प्रारूप में एक स्ट्रिंग का उत्पादन करेगा।

मैं यह भी जोड़ना चाहूंगा कि प्रयोग के लिए, मैंने infix ऑपरेटर के लिए तीसरा तर्क जोड़ने की कोशिश की, और इस तरह के ऑपरेटर को सफलतापूर्वक संकलित भी किया गया था, लेकिन ऐसे ऑपरेटर को कॉल करने का एकमात्र तरीका एक नियमित फ़ंक्शन को कॉल करने से अलग नहीं है:

 sub infix:<MyNewOperator> (Int $a, Str $b, $c) { return "Call: $a + $b, $c"; } say infix:<MyNewOperator>(1, "abc", 5); 

मैं ऑपरेटरों को बनाने में बिंदु नहीं देखता, और फिर मैं इस तरह का उपयोग नहीं कर रहा हूं, इसलिए मैंने भविष्य में "पैरामीटर हस्ताक्षर" से विचलित नहीं किया।

चलो अगले प्रकार के ऑपरेटर पर चलते हैं - उपसर्ग।
एक अच्छा उदाहरण तार्किक अभिव्यक्ति का निषेध ऑपरेटर है '!' जिसे हम पूर्णांक के लिए सत्यापन के लिए अधिभार देते हैं

 sub prefix:<!> (Int $a) { return "Call: prefix ! $a"; } say !1; 

यह भी ध्यान देने योग्य है कि, फिर से, हम मौजूदा उपसर्ग ऑपरेटरों के नाम तक सीमित नहीं हैं। इस प्रकार, मैं भी ऑपरेटर को ओवरलोड करने में सक्षम था। ', जिसने इस तरह के ऑपरेटर की आदत में बहुत ही असामान्य रूप पैदा किया। इस अवसर पर, मैंने कहीं पढ़ा एक कॉमिक वाक्यांश भी याद किया: "पर्ल 6 में ऑपरेटरों, ब्लॉकों, सब कुछ, और यहां तक ​​कि अधिभार अधिभार को अधिभार देना संभव होगा"। एक शुक के साथ एक मजाक, लेकिन उपसर्ग ऑपरेटर डॉट किसी भी तरह आपको लगता है =)

लेकिन यह अन्य चीजों के लिए आगे बढ़ने का समय है - पोस्टफिक्स ऑपरेटरों:
फिर, मुझे छोटे प्रिंट और एक बैंक के विषय पर एक लेख याद आया:

 sub postfix:<*> (Int $a) { return "See $a paragraph in document A"; } say "We can give you \$1_000_000 just for lulz!"; say 1*; 

नतीजतन, हम देखेंगे

 We can give you $1_000_000 just for lulz! See 1 paragraph in document A 

फिर से, सभी पूर्ववर्ती प्रकार के ऑपरेटरों के संबंध में - वास्तव में, हम ऑपरेटर नामों में केवल इस तथ्य तक सीमित हैं कि संकलक को समझना चाहिए कि ऑपरेटर कहां समाप्त होता है और कहां से ऑपरेंड शुरू होता है। इसलिए ऑपरेटर के लिए नाम चुनते समय विशेष रूप से परिष्कृत न हों।
और अंत में, इससे पहले कि हम जारी रखें, यह न भूलें कि ऑपरेटर वास्तव में एक ही फ़ंक्शन है, इसलिए यदि आप एक और समान पोस्टफ़िक्स ऑपरेटर '*' बनाना चाहते हैं, लेकिन स्ट्रिंग्स के लिए, तो दोनों मामलों में आपको कीवर्ड 'मल्टी' जोड़ने की आवश्यकता है।

लेकिन हम अगली श्रेणी में आगे बढ़ेंगे - ओवरलोडिंग कोष्ठक:

 sub circumfix:<(( ))> (Int $a) { return "<$a>"; } say ((1)); 

नतीजतन, हम प्राप्त करते हैं

 <1> 

लेकिन "नए" कोष्ठक का चयन करते समय समझदारी न रखें, क्योंकि कंपाइलर को तब इसे पूरा करना होगा, और ऑपरेटरों की सूची में आपके हस्तक्षेप के कारण, यह इतना सरल नहीं हो सकता है)

हालाँकि, हम अगले प्रकार पर जाएँगे - "पोस्टफ़िक्स ब्रैकेट्स"
कोई फर्क नहीं पड़ता कि कैसे मैंने संकलक को एक स्ट्रिंग या संख्या के लिए इस ऑपरेटर को अधिभारित करने के लिए मजबूर करने की कोशिश की, मुझे एक संदेश दिया गया था कि तार में बस ऐसी विधि नहीं होती है। और जो उदाहरण मुझे इंटरनेट पर मिले, वे कक्षाओं के लिए तरीकों के रूप में तैयार किए गए थे। इससे, मैं यह मान सकता हूं कि यह केवल तब किया जा सकता है जब हम एक नया वर्ग बनाते हैं, इसलिए अभी हम निम्नलिखित लेखों तक निम्नलिखित उदाहरणों का उपयोग करेंगे, लेकिन यदि आप रुचि रखते हैं, तो आप इस विषय पर संकलक का प्रयास कर सकते हैं।

अंत में, मैं यह भी जोड़ना चाहता हूं कि मैंने फ़ंक्शन द्वारा रिटर्न मान के प्रकार की एक कार्यशील जांच देखी:

 sub Func($a) of Int { return $a; } 

इस तथ्य के बावजूद कि फ़ंक्शन किसी भी प्रकार के ऑपरेंड को स्वीकार कर सकता है, यदि कोई पूर्णांक प्रेषित नहीं होता है, तो रन टाइम पर मान लौटाने में त्रुटि होगी, लेकिन उदाहरण के लिए एक स्ट्रिंग या एक फ्रैक्शनल मान। जहां तक ​​मुझे याद है, पिछली बार जब मैंने चेक किया था, तब यह फीचर काम नहीं किया था।

इस पर मैं इस लेख को समाप्त करना चाहूंगा, मुझे आशा है कि आपको यह पसंद आया होगा।