Perl6 - कक्षाएं

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

पिछले कुछ दिनों से, मैं पर्ल 6 में वस्तुओं के साथ काम करने पर एक खंड पढ़ रहा हूं। दुर्भाग्य से, मैं कुछ बिंदुओं को नहीं समझ सका, और मुझे आशा है कि जो लोग पहले से ही उन्हें समझने में सक्षम हैं, वे आपको बताएंगे कि मामला क्या है। पहले की तरह, सभी वर्णित विशेषताएं छोटे प्रयोगों या उदाहरणों के साथ बताएंगी कि यह कैसे काम करता है, या इसका उपयोग कैसे करें।
आइए शुरू:


Perl6 में, क्लास घोषित करने के दो संभावित तरीके हैं:
पूरी फाइल को क्लास डिस्क्रिप्शन लें

class Name; has $.field; ... method Func() {...}; 

एक निर्माण का उपयोग कर एक वर्ग -Declare

 class Name { has $.field; } 

C ++ में, आप केवल कक्षा का नाम निर्दिष्ट कर सकते हैं, बाद में उसका विवरण दे सकते हैं:

 class Name {...}; my $var = Name.new; class Name {has $.elem}; 

यदि अंतिम पंक्ति नहीं है, तो संकलन त्रुटि होगी
निम्नलिखित करना भी संभव है:

 my $className = class Name { has $.field is rw; } my $var1 = Name.new; my $var2 = $className.new; $var1.field = 10; $var2.field = 5; say $var1.field, ' ', $var2.field; 

नतीजतन, हम लाइन '10 5 'देखेंगे
आप निर्माण का उपयोग करके एक अनाम वर्ग बना सकते हैं

 my $anonClass = class :: {has $.field}; my $var = $anonClass.new; 

पहले से ही बनाए गए चर का उपयोग नए चर बनाने के लिए किया जा सकता है:

 my $var1 = ClassName.new; my $var2 = $var1.new; 

हालाँकि, डेटा की प्रतिलिपि बनाए बिना निर्माण होता है।

अब घोषणा करते समय आप क्या निर्दिष्ट कर सकते हैं इसके बारे में अधिक जानकारी:
फ़ील्ड को दर्शाने के लिए कीवर्ड का उपयोग किया जाता है:

 class Name { has Int $.publicMember; has $!privateMember; has @.publicArray is rw; has %!privateHash; has $.a is rw; has $.b is rw = '  '; } my $v = Name.new; say $v.publicMember; # "Int()" #$v.publicMember = 10 - ,  readonly #say $v!privateMember -  $v.mas = 1, 2, 3; #say $v!privateHash -  $va = 'new value'; say $vb # "  " 

यह भी ध्यान देने योग्य है कि विधि के शरीर में आप निजी चर को बदल सकते हैं, भले ही यह आसानी से हो (हालांकि, मैं यह नहीं कह सकता कि यह जिस तरह का इरादा है, या वर्चुअल मशीन की अपूर्णता इसे प्रभावित करती है)

क्लास के तरीके विधि कीवर्ड द्वारा दर्शाए गए हैं:

 class Name { has $!privateMember = 5; method GetPrivateMember() { return $!privateMember; } method SetPrivateMember($value) { $!privateMember = $value if $value > 0; } } my $var = Name.new; say $var.GetPrivateMember; $var.SetPrivateMember(10); $var.SetPrivateMember: 20; 

तरीकों को निजी घोषित किया जा सकता है:

 method !PrivateMethod() { say 'Hello!'; } 

आप निर्दिष्ट कर सकते हैं कि किस चर के माध्यम से ऑब्जेक्ट (इनवोकेंट) उपलब्ध होगा जिसके लिए विधि कहा जाता है:

 method Func($self: $param1, $param2) { $self.Func2($param1); } 

चर नाम $ स्व नहीं होना चाहिए

 method Func($someName: $param1, $param2) { $someName!PrivateMethod($param1); } 

यदि यह चर निर्दिष्ट नहीं है, तो वस्तु स्वयं 'स्वयं' के रूप में उपलब्ध होगी

 method Func($param1, $param2) { self.PublicMethod($param1); self!PrivateMethod($param2); } 

विधि निकाय में इस वर्ग की एक अन्य विधि को कॉल करने के लिए, निम्नलिखित निर्माण का उपयोग करें

 self!PrivateMethod(); self.PublicMethod(); 

उदाहरण के लिए

 class Name { method !A() { say "!A"; } method A($s:) { $s!A(); } method B() { self!A; self.C; say "B"; } method C() { say "C"; } } 

यह भी संभव है कि कॉल स्व। और स्व!

विधि निकाय में वर्ग के क्षेत्रों तक पहुँचने के लिए, समान नामों का उपयोग किया जाता है, जैसे घोषणा के साथ:

 class Name { has $.a; has $!b; method PrintValues() { say $.a; say $!b; } } 

आप self.a भी लिख सकते हैं लेकिन आप self! B नहीं लिख सकते, क्योंकि इस मामले में, इसका मतलब चर बी तक पहुंचने के बजाय निजी पद्धति बी को लागू करना होगा

यदि घोषित किए जाने पर वर्ग का नाम rw है, तो इस फ़ील्ड में निहित सभी फ़ील्ड व्यक्तिगत रूप से प्रत्येक फ़ील्ड के लिए rw निर्दिष्ट किए बिना लेखन योग्य होंगे:

 class Name is rw { has $.a; has $.b; } 

आप कक्षाओं में भी सबमिथोड घोषित कर सकते हैं। साधारण तरीकों से उनका अंतर यह है कि बच्चे के वर्ग में सबमिथ को विरासत में नहीं मिलेगा।

अब डिजाइनरों के बारे में
आप निर्दिष्ट कर सकते हैं कि कक्षा की एक नई आवृत्ति बनाते समय कौन से कार्य करें:

 class Name { has $.arg1 is rw = 10; has $!arg2; submethod BUILD(:$namedArg1, :$namedArg2) { self.arg1 = $namedArg1 if $namedArg1>0; $!arg2 = $namedArg2; } } my $var = Name.new(:namedArg2(200), :namedArg1<Hello>); 

एक बात है जो मुझे समझ में नहीं आती है: मुझे self.arg1 लिखना था और $ .arg1 नहीं, क्योंकि मुझे यह त्रुटि मिली "आंशिक रूप से निर्मित वस्तुओं पर वर्चुअल कॉल $ .a का उपयोग नहीं किया जा सकता है"।
मैं यह नहीं समझ सकता कि यह योजनाबद्ध है या यह सिर्फ एक हिस्सा है जिसे अभी तक पूरी तरह से काम नहीं किया गया है। लेकिन किसी भी मामले में, इस तरह के एक निर्माता ठीक काम करता है।

आप एक डिस्ट्रॉक्टर भी निर्दिष्ट कर सकते हैं जिसे गारबेज कोलोरेक्टर द्वारा स्वचालित रूप से कहा जाएगा।

 submethod DESTROY() { say 'DESTROY'; } 

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

Perl6 में, इनहेरिटेंस निम्नलिखित निर्माण द्वारा आयोजित किया जाता है:

 class Name {has $.a}; class Name2 is Name {has $.b}; my $var = Name2.new; say $var; #Name2.new(b => Any, a => Any) 

एकाधिक वंशानुक्रम संभव है, जिसके परिणामस्वरूप यह पता चल सकता है कि कक्षाओं में फ़ंक्शन या फ़ील्ड के नाम मेल खाते हैं:

 class Name { has $.a is rw = 10; has $.c is rw = 15; method A() {say "Name ", $.a;} } class Name2 { has $.b is rw = 20; has $.c is rw = 25; method A() {say "Name2 ", $.b;} } class Name3 is Name is Name2 { method A() { self.Name2::A(); say $.c; } } my $var = Name3.new; $var.a = 100; $var.b = 200; $var.A; 

इस स्थिति में, स्क्रीन पर दो लाइनें प्रदर्शित होंगी:

 Name2 200 15 

यदि आप चाइल्ड क्लास में फ़ंक्शन A को फिर से परिभाषित नहीं करते हैं, तो Name :: A फ़ंक्शन Name2 :: A फ़ंक्शन को ओवरराइड करेगा, यह $ .c चर के साथ भी होता है।
जैसा कि मैंने इसे समझा, पंक्ति self.Name2 :: A (); Name2 :: A () मेथड सेल्फ ऑब्जेक्ट के लिए निष्पादित होता है, हालाँकि, यह कैसे काम करता है, इसके बारे में मेरे सभी अनुमान इस तथ्य से खराब हो जाते हैं कि एक त्रुटि self.Name2 नाम को जारी की जाती है, और आप स्वयं (या नाम 2 :: a) या कुछ और नहीं लिख सकते। उस तरह। मुझे खुशी होगी अगर कोई जानकार मुझे बताए।

बेशक, यहां वर्णित विशेषताएं केवल वस्तुओं के साथ आप क्या कर सकते हैं, इसका एक हिस्सा है (उदाहरण के लिए, मैंने प्रतिनिधिमंडल का भी उल्लेख नहीं किया है, भूमिका सी ++ में इंटरफेस का एनालॉग हैं), लेकिन अब मैं इस विषय पर इतना गहरा नहीं जाना चाहता, लेकिन अध्ययन करना जारी रखता हूं Perl6 की अन्य विशेषताएं। इस बीच, भाषा में महारत हासिल करने के लिए, वर्णित एक पर्याप्त है।