Chọn một khóa ngẫu nhiên từ mã băm

Question

Làm cách nào để chọn khóa băm ngẫu nhiên? Đối với my Flash+Perl card game Tôi đang cố gắng để chọn một thẻ ngẫu nhiên từ một hash nơi các phím như sau: "6 Spades", "6 câu lạc bộ", vv như thế này:

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

Tôi tự hỏi nếu đó là cách đúng hoặc nếu có là một cách tốt hơn.

Answer 1

Hơi ngắn gọn hơn:

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

Answer 2

Nhận giá trị ngẫu nhiên từ% băm

---

1. Store phím của %hash của bạn trong @hash_keys.
2. tạo ra một số ngẫu nhiên giữa 0 và độ dài của @hash_keys
3. có được sự xâm nhập ngẫu nhiên từ @hash_keys
4. sử dụng phím mua để có được giá trị ngẫu nhiên của bạn từ %hash

---

Đoạn mã :

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

Dưới đây là một cách khác (chứng minh làm thế nào để chọn một yếu tố ngẫu nhiên từ một danh sách dài vô danh):

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