perl - 从散列中选择一个随 secret 钥

Question

如何选择随机哈希键？对于 my Flash+Perl card game我正在尝试从哈希中随机选择一张卡片，其中的键是:“6 黑桃”、“6 俱乐部”等，如下所示:

my $card;
my $i = 0;
for $card (keys %{$user->{HAND}}) {
    last if rand(++$i) < 1;
}
delete $user->{HAND}->{$card};
print "random card: $card\n";

我想知道这是正确的方法还是有更好的方法。

Answer 1

更简洁一些:

my $random_value = $hash{(keys %hash)[rand keys %hash]};