Значение динамической переменной?

код perl:

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

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

будет:

8
8

можно ли получить различное значение каждый раз? (execute int(rand(10)) каждый раз $config{ randValue } называется)

1 ответов


можно использовать связана хэш, или функция:

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

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