Выбор случайного ключа из хэша

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

Получить случайное значение из% хэша

---

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