大脑在这件事上变得模糊不清。我想将我的骰子游戏从使用 rand() 改为使用 random.org 中的随机值列表。我能够很好地检索值,我只是挂断了从列表中弹出的语法。
这是我适合的功能:
sub roll_d
{
return (pop($$dice_stack{@_[0]}));
# Original code:
#return (int(rand @_[0]) + 1);
}
其中 $dice_stack 是指向散列的指针,其中键是骰子类型('6' 代表 d6,'20' 代表 d20),值是介于 1 和骰子类型之间的整数数组。