गतिशील चर मूल्य?

Question

पर्ल कोड:

my %config = (
    randValue => int(rand(10)), 
); 

print $config{ randValue }."\n"; 
print $config{ randValue }."\n"; 

का उत्पादन करेगा:

8 
8 

यह अलग मूल्य हर बार प्राप्त करने के लिए संभव है?

Answer 1

आप tied hash, या समारोह का उपयोग कर सकते (int(rand(10)) हर बार $config{ randValue } कहा जाता है निष्पादित):

my %config = (
    randValue => sub { int(rand(10)) }, 
); 

print $config{randValue}->(); 
print $config{randValue}->();