Tableau de hachage perl des tableaux

Question

Je cherche à accéder aux éléments d'un tableau qui fait partie d'un hash.

for my $idx ( 0 .. $#vss ) {
    push (@{$vsnhash->{$vss[$idx]}}, $vsports[$idx]);
}
print Dumper(\%$vsnhash);

($VAR1 = {
      'name2' => [
                   '8001',
                   '8002'
                 ],
      'name1' => [
                   '8000'
                 ]
    };

Je peux accéder aux clés avec une boucle foreach :

foreach my $key ( keys %$vsnhash ) {
print "$key\n";
}

Comment accéder au tableau de numéros de port ('8001' , '8002') dans le hash ?
Merci pour l'aide!

Answer 1

while (my ($k, $v) = each %$vsnhash) {
    print "$k: @$v\n";
}

Answer 2

foreach my $key ( keys %$vsnhash ) {
   print "$key\n";
   foreach my $port (@{$vsnhash->{key}}){
      print "Port $port\n";
   }
}

Answer 3

$vsnhash{name2}->[0];   #8001
$vsnhash{name2}->[1];   #8002
$vsnhash{name1}->[0];   #8000

Code wise:

foreach my $key (sort keys %vsnhash) {
   foreach my $index (0..$#{$key}) {
      print "\$vsnhash{$key}->[$index] = " . $vsnhash{$key}->[$index] . "\n";
   }
}

Le $#{$key} signifie la dernière entrée dans le tableau @{$key. Rappelez-vous que $key est une référence à un tableau tandis que @{$key} est le tableau lui-même.