Dynamic variable value?

Question

perl code:

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

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

will produce:

8
8

Is it possible to get different value each time? (execute int(rand(10)) each time the $config{ randValue } is called)

Answer 1

You can either use tied hash, or function:

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

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