Comment obtenir le nombre de clés dans un hachage perl de hachages?

Question

Je veux obtenir le nombre d'entrées pour chaque groupe, mais il semble me donner la mauvaise réponse. Il y a des éléments dans chaque groupe qui pourraient être répétés. Les résultats que je reçois n'ont pas de sens. Qu'est-ce que je fais mal?

my %hash; 
while(<>) 
{ 
    chomp($_); 
    if(/(\d+)\t(\d+)/) 
    { 
     my $group = $1; 
     my $element = $2; 
     $hash{$group}{$element}=1; 
    } 
} 

foreach my $curr(keys %hash) 
{ 
    my $numElementsInCurr = keys %{$hash{$curr}}; 
    print "$curr\t$numElementsInCurr\n"; 
} 

Answer 1

Si les éléments d'un groupe peut être répété, et vous avez besoin de votre nombre d'inclure ces doublons, vous aurez besoin de faire quelque chose comme:

my %hash; 
while(<>) 
{ 
    chomp($_); 
    if(/(\d+)\t(\d+)/) 
    { 
     my $group = $1; 
     my $element = $2; 
     ++$hash{$group}{$element}; 
    } 
} 

use List::Util 'sum'; 

foreach my $curr(keys %hash) 
{ 
    my $numElementsInCurr = sum values %{$hash{$curr}}; 
    print "$curr\t$numElementsInCurr\n"; 
}