मैं पर्ल में स्थिर के रूप में एक नेस्टेड हैश कैसे बना सकता हूं?

Question

मैं पर्ल, निम्नलिखित रूबी कोड के बराबर में क्या करना चाहते हैं:

class Foo 
    MY_CONST = { 
    'foo' => 'bar', 
    'baz' => { 
     'innerbar' => 'bleh' 
    }, 
    } 

    def some_method 
    a = MY_CONST[ 'foo' ] 
    end 

end 

# In some other file which uses Foo... 

b = Foo::MY_CONST[ 'baz' ][ 'innerbar' ] 

है यही कारण है कि, मैं सिर्फ कक्षा में और बाहर दोनों के उपयोग के लिए एक स्थिर, नेस्टेड हैश संरचना की घोषणा करना चाहते हैं। कैसे?

Answer 1

आप हैश (कुंजी, मान, या दोनों) को लॉक और अनलॉक करने के लिए Hash::Util मॉड्यूल का उपयोग कर सकते हैं।

package Foo; 
use Hash::Util; 

our %MY_CONST = (
    foo => 'bar', 
    baz => { 
     innerbar => 'bleh', 
    } 
); 

Hash::Util::lock_hash_recurse(%MY_CONST); 

फिर कुछ अन्य फ़ाइल में:

use Foo; 
my $b = $Foo::MY_CONST{baz}{innerbar}; 

Answer 2

यहाँ पर्ल में हैश के लिए एक गाइड है। Hash of Hashes

Answer 3

Readonly देखें:

#!/usr/bin/perl 

package Foo; 

use strict; 
use warnings; 

use Readonly; 

Readonly::Hash our %h => (
    a => { b => 1 } 
); 

package main; 

use strict; 
use warnings; 

print $Foo::h{a}->{b}, "\n"; 

$h{a}->{b} = 2; 

आउटपुट:

 
C:\Temp> t 
1 
Modification of a read-only value attempted at C:\Temp\t.pl line 21 

Answer 4

तुम भी यह पूरी तरह builtins के साथ क्या कर सकते हैं:

package Foo; 
use constant MY_CONST => 
{ 
    'foo' => 'bar', 
    'baz' => { 
     'innerbar' => 'bleh', 
    }, 
}; 

sub some_method 
{ 
    # presumably $a is defined somewhere else... 
    # or perhaps you mean to dereference a parameter passed in? 
    # in that case, use ${$_[0]} = MY_CONST->{foo} and call some_method(\$var); 
    $a = MY_CONST->{foo}; 
} 

package Main; # or any other namespace that isn't Foo... 
# ... 
my $b = Foo->MY_CONST->{baz}{innerbar};