动态变量值？

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

您可以使用绑定哈希或函数:

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

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