Dynamischer Variablenwert?

Question

Perl-Code:

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

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

produzieren:

8 
8 

Ist es möglich, anderer Wert jedes Mal zu bekommen? (Execute int(rand(10)) jedesmal, wenn die $config{ randValue } genannt wird)

Answer 1

Sie entweder tied hash verwenden oder Funktion:

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

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