perl - 动态变量值？

Question

代码:

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

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

将产生:

8
8

是否有可能每次获得不同的值(value)？ (每次调用 int(rand(10)) 时都执行 $config{ randValue })

Answer 1

您可以使用 tied hash ，或函数:

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

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