动态变量值？

Question

perl代码：

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

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

将产生：

8
8

每次都可以获得不同的价值吗？ （每次调用int(rand(10))时执行$config{ randValue }

Answer 1

您可以使用tied hash或功能：

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

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