पर्ल में खुद को गोली मारने का एक और तरीका

आइए कोड को देखें:

use strict; use warnings; sub mysub($$) { my ($a, $b) = @_; print "$a\n"; print "$b\n"; } my $x = undef; mysub($x && $x->[0] =~ /abc/, $x = []); 

क्या पहली दलील के रूप में म्याऊ को कुछ मिल सकता है जो बूलियन संदर्भ में सच है?


यह प्रतीत नहीं होगा, क्योंकि इसके लिए $ x को एक सरणी का संदर्भ होना चाहिए, और इसके पहले तत्व में प्रतिस्थापन 'एबीसी' होना चाहिए।

लेकिन यह पता चला कि शायद

 $perl poc.pl ARRAY(0xdb6d48) ARRAY(0xdb6d48) 

मामला क्या है?

1. पर्ल में (कई अन्य भाषाओं में) X && Y , यदि X गलत है, तो न केवल झूठे ( Y निष्पादित किए बिना) वापस आ जाएंगे, लेकिन X खुद (जो कि झूठी होनी चाहिए)
   
2. पर्ल में सभी पैरामीटर संदर्भ द्वारा पारित किए जाते हैं, मूल्य से नहीं।

इस प्रकार, जब पहले तर्क की गणना की जाती है

 $x && $x->[0] =~ /abc/ 

$ x अपरिभाषित है यानी असत्य, इसलिए, पहले तर्क के बजाय, $ x ही पारित किया जाता है,
जब दूसरे तर्क की गणना की जाती है, तो $ x को मान दिया जाता है [] (एक खाली सरणी के संदर्भ में), इसलिए जब mysub कोड चलना शुरू होता है, तो दोनों तर्क
इसमें $ x का संदर्भ है (जो एक खाली सरणी है, जो बदले में सत्य है)

यदि ऐसा लगता है कि कोड व्यवहार में बहुत अधिक लागू नहीं होता है, तो मैं कह सकता हूं कि बग वास्तविक इकाई परीक्षण कोड में पाया गया था:

 ok( ($errors && ($errors->[0] =~ /My Exception/i)), "should catch exception $errors->[0]" ); 

(इस मामले में, ऑटोविविफिकेशन पर्ल की एक और अद्भुत विशेषता शुरू हो गई है - यदि आप $ त्रुटियों में बदल जाते हैं -> [0] तो $ त्रुटियां बन जाएंगी,
अगर $ त्रुटियां इस अपरिभाषित से पहले थी)