从散列中选择随机密钥

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]};

Answer 2

从％hash

获取随机值

---

1. 将%hash的密钥存储在@hash_keys。
中
2. 生成0与@hash_keys
之间的随机数
3. 从@hash_keys
获取随机条目
4. 使用获取的密钥从%hash
获取随机值

---

示例代码段：

my %hash = ( 
  'stack' => 'overflow',
  'face'  => 'book',
  'inter' => 'net'
);

## ALTERNATIVE 1 ##
my @hash_keys    = keys %hash;

my $random_key   = $hash_keys[rand @hash_keys];
my $random_value = $hash{$random_key};

## ALTERNATIVE 2 ##
my $random_val_2 = (%hash)[1+2*int rand keys%hash]; # TIMTOWTDI

## ALTERNATIVE 3 ##
my $random_val_3 = [@_=%hash]->[1|rand@_];          # TIMTOWTDI

Answer 3

这是另一种方式（演示如何从未知长度列表中选择随机元素）：

my $cards;
my $chosen;
while ( my $card = each %{$user->{HAND}} ) {
    $chosen = $card if rand(++$cards) < 1;
}