Comment faire une boucle dans un hachage?

Question

Étant donné la variable suivante:

$test = { 
    '1' => 'A', 
    '2' => 'B', 
    '3' => 'C', 
    '4' => 'G', 
    '5' => 'K', 
} 

Comment boucle à travers toutes les affectations sans savoir quelles touches je?

Je voudrais remplir une boîte de sélection avec les résultats comme étiquette et les clés comme valeurs cachées.

Answer 1

Il suffit de faire une boucle foreach sur les touches:

#!/usr/bin/perl 
use strict; 
use warnings; 

my $test = { 
    '1' => 'A', 
    '2' => 'B', 
    '3' => 'C', 
    '4' => 'G', 
    '5' => 'K', 
}; 

foreach my $key(keys %$test) { 
    print "key=$key : value=$test->{$key}\n"; 
} 

sortie:

key=4 : value=G 
key=1 : value=A 
key=3 : value=C 
key=2 : value=B 
key=5 : value=K 

Answer 2

Vous pouvez savoir quelles touches vous avez avec keys

my @keys = keys %$test; # Note that you need to dereference the hash here 

Ou vous pourrait faire tout le tout en un seul passage:

print map { "<option value='$_'>$test->{$_}</option>" } keys %$test; 

Mais vous voudrez probablement une sorte d'ordre:

print map { "<option value='$_'>$test->{$_}</option>" } sort keys %$test; 

... et vous auriez presque certainement mieux déplacer la génération HTML vers un template system séparé.

Answer 3

Vous pouvez utiliser la fonction intégrée each:

while (my ($key, $value) = each %$test) { 
    print "key: $key, value: $value\n"; 
}