Perl6 - डेटा प्रकारों के साथ कार्य करना

अब तक, लेखों में केवल डेटा प्रकारों का एक सतही उल्लेख किया गया है - एक निश्चित प्रकार के एक चर को घोषित करना, या एक ऑपरेशन के परिणाम को इंगित करना, लेकिन हम सब कर सकते थे संकलक की हरकतों को सहन करना - "मैं मरना चाहता हूं, मैं परिजनों को वार्ड करना चाहता हूं, या बस प्रकार बदलना चाहता हूं। "।
दरअसल, उन लोगों के लिए जो भगवान की तरह महसूस करना चाहते हैं , कम से कम किसी तरह से अपनी लिपि में टाइप के प्रबंधन में महत्वपूर्ण हैं, बिल्ली का स्वागत है।


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

sub Func($a, $b) {...} 

और हमें फ़ंक्शन को हमेशा एक तरीके से निष्पादित करने की आवश्यकता होती है, लेकिन यदि एक भिन्नात्मक संख्या और एक स्ट्रिंग को अचानक पैरामीटर के रूप में पारित किया जाता है, या इसके विपरीत, तो अन्य क्रियाएं करें।

आइए छोटे से शुरू करें - हम यह पता लगाएंगे कि प्रत्येक चर के लिए हमारे पास किस प्रकार का डेटा है, इसके लिए हम WHAT पद्धति का उपयोग करते हैं, जो टाइप ऑब्जेक्ट लौटाएगा - डेटा प्रकार (उदाहरण के लिए, मान "(Int)" का संकेत देने वाली वस्तु "वापस लौटा दी जाएगी")। यह ध्यान दिया जाना चाहिए कि यह वह वस्तु है जिसे लौटाया जाता है, न कि स्ट्रिंग, और दो प्रकारों की एक साधारण तुलना, उदाहरण के लिए, == या eq से काम नहीं चलेगा। प्रकार के साथ प्राप्त वस्तु की तुलना करने के लिए, हम स्मार्ट तुलना ऑपरेटर '~~' का उपयोग करेंगे:

 sub Func($a, $b) { $condition = ( ($a.WHAT ~~ (Rat)) ?& ($b.WHAT ~~ (Str)) ); $condition ?|= ( ($a.WHAT ~~ (Str)) ?& ($b.WHAT ~~ (Rat)) ); if ($condition) { #`(SomeWork) } else { #`{AnotherWork} } } 

(चूहा) और (स्ट्र) क्रमशः वास्तविक संख्या और तार के प्रकार हैं।
उन लोगों के लिए जो पहले से ही भूल गए हैं? & - तार्किक "और", | - तार्किक "या"।

और इसलिए, हमने सीखा कि किसी चर के मूल्य को कैसे निर्धारित किया जाए, और इसके आधार पर कुछ कार्रवाई की जाए। लेकिन आइए देखें कि किन मामलों में ऐसा करना जरूरी है:

 my Int $a; sub Func($p) { $a = $p; } Func(10); Func("Test"); 

हमारे मामले में, स्क्रिप्ट तब मर जाती है जब वह एक स्ट्रिंग को एक चर को असाइन करने की कोशिश करता है जिसमें केवल पूर्णांक हो सकते हैं।

हम अपने उदाहरण को थोड़ा ठीक करेंगे और निम्नलिखित लिखेंगे:

  $a = +($p); 

नतीजतन, हम त्रुटि को भी पकड़ते हैं, और स्क्रिप्ट मर जाती है, और त्रुटि असाइनमेंट के बारे में नहीं है, लेकिन संख्यात्मक संदर्भ में गलत प्रकार के बारे में है, जिसमें से हम निष्कर्ष निकालते हैं कि निजी संदर्भ केवल प्रकार के प्रतिबंधों को जोड़ते हैं, और यह कि मैनुअल रूपांतरण के लिए हमें चाहिए कुछ और।

आइए निम्नलिखित निर्माण का उपयोग करने का प्रयास करें:

  $a = Int($p); 

यह पहले से बेहतर है, क्योंकि यदि हम कई प्रकार (रैट) पास करते हैं, तो इसे टाइप (इंट) में बदल दिया जाएगा, लेकिन यदि हम एक स्ट्रिंग पास करते हैं, तो हमें स्ट्रिंग को एक नंबर में परिवर्तित करने में एक त्रुटि मिलेगी, अर्थात्, स्ट्रिंग की तरह दिखना चाहिए 10 वें नंबर सिस्टम में नंबर।
अब तक, मुझे स्क्रिप्ट को आगे काम करने के लिए केवल एक ही रास्ता मिला है - अपवादों को पकड़ना। मेरी राय में यह सबसे तार्किक कार्रवाई है, लेकिन हम इस बारे में निम्नलिखित लेखों में बात करेंगे

इसके अलावा, यदि फ़ंक्शन विवरण से मेल नहीं खाता मान वापस करने का प्रयास करता है, तो हमारी स्क्रिप्ट मर सकती है:

 sub Func($p) of Int { return $p; } Func("test"); 

तो इस मामले में, आउटपुट मानों की जांच करना भी अच्छा होगा।

अंत में, मैं यह कहना चाहता हूं कि, मेरी राय में, संग्रहीत डेटा के प्रकारों पर प्रतिबंध कार्यों के "इंटरफेस" का वर्णन करने में मदद कर सकता है, और टाइप किए गए प्रोग्रामिंग भाषाओं के कुछ फायदे दे सकता है।
आशा है कि यह जानकारी मददगार रही होगी।