Perl et Multimap

Question

Existe-t-il un moyen d'implémenter un multimap C++ en Perl?

Answer 1

Utilisez un hash of arrays.

my %students = (# keys are IDs, values are enrollments 
    100023 => [qw(Geography Mining)], 
    100058 => [qw(Geography Geology Woodcraft)], 
); 

Answer 2

Si par multimap vous voulez dire le C++ multimap, alors la réponse est oui. En Perl, une carte correspond à un hachage. La valeur associée à une clé donnée dans le hachage peut être une référence à un hachage. Perl ne nécessite pas non plus d'utiliser -> après la première opération d'indexation, donc au lieu de dire $h{key1}->{key2}, vous pouvez juste dire $h{key1}{key2} ce qui vous donne une illusion convaincante d'un hachage multidimensionnel.

est un exemple:

#!/usr/bin/perl 

use strict; 
use warnings; 

use Data::Dumper; 

my %h; 

my $i; 
for my $k (qw/one two three/) { 
    for my $j (qw/a b c/) { 
     $h{$k}{$j} = $i++; 
    } 
} 

print "one b should be 1: $h{one}{b}\n", 
    Dumper \%h;