मेरा निरंतर संशोधित क्यों 'मौजूद' है?

Question

exists फ़ंक्शन unexpectedly autovivify entries हैश में कर सकते हैं। मुझे लगता है यह एक बग है

use strict; 
use warnings; 
use Data::Dump 'dump'; 

use constant data => { 
         'foo' => { 
            'bar' => 'baz', 
           }, 
         'a' => { 
            'b' => 'c', 
           } 
        }; 

dump data; # Pre-modified 

print "No data for 'soda->cola->pop'\n" unless exists data->{soda}{cola}{pop}; 

dump data; # data->{soda}{cola} now sprung to life 

आउटपुट

{ a => { b => "c" }, foo => { bar => "baz" } } 
No data for 'soda->cola->pop' 
{ a => { b => "c" }, foo => { bar => "baz" }, soda => { cola => {} } } 

:

मुझे क्या आश्चर्य है कि इस व्यवहार के रूप में अच्छी तरह से स्थिरांक के लिए खत्म हो जाता है। क्या यह कुछ 5.10.1-विशिष्ट है, या पर्ल के अन्य संस्करण समान व्यवहार करते हैं?

Answer 1

यह दस्तावेज व्यवहार है। perldoc constant का कहना है:

हालांकि एक संदर्भ एक निरंतर के रूप में घोषित किया जा सकता है, संदर्भ डेटा जो हो इस कोड है, जैसा कि बदल सकते हैं करने के लिए जा सकते हैं।

use constant ARRAY => [ 1,2,3,4 ]; 
print ARRAY->[1]; 
ARRAY->[1] = " be changed"; 
print ARRAY->[1]; 

यह संदर्भ है कि स्थिर है, क्या नहीं यह को संदर्भित करता है।

Answer 2

शायद आप "सत्य" स्थिरांक बनाने के लिए Readonly का उपयोग करना चाहते हैं।

constant प्राग्मा का उपयोग करके बनाए गए स्थिरांक वास्तव में inlinable subroutines हैं। इसका मतलब है कि संकलन समय पर उचित स्केलर स्थिरता कुछ सबराउटिन कॉल के स्थान पर सीधे डाली जाती है। यदि निरंतर संदर्भ है, तो कुछ भी आपको उस डेटा को बदलने से रोकता है जो इसे इंगित करता है।