Selezione di una chiave casuale da un hash

Question

Come si seleziona una chiave hash casuale? Per my Flash+Perl card game Sto cercando di scegliere una carta a caso da un hash in cui le chiavi sono: "6 picche", "6" club, ecc in questo modo:

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

Mi chiedo se è il modo corretto o se ci è un modo migliore.

Answer 1

Un po 'più conciso:

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

Answer 2

Ottenere valore casuale da% hash

---

1. Conservare le chiavi del tuo %hash in @hash_keys.
2. generare un numero casuale compreso tra 0 e la lunghezza del @hash_keys
3. ottenere la voce casuale @hash_keys
4. utilizzare il tasto acquisita per ottenere il vostro valore casuale da %hash

---

frammento di esempio :

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

Ecco un altro modo (dimostrando come scegliere un elemento casuale da un elenco di lunghezza sconosciuta):

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