Giá trị biến động?

Question

đang

perl:

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

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

sẽ sản xuất:

8 
8 

Có thể nhận được giá trị khác nhau mỗi lần? (Thực hiện int(rand(10)) mỗi lần $config{ randValue } được gọi là)

Answer 1

Bạn có thể sử dụng tied hash, hoặc chức năng:

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

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