[Perl] multi hash

[Pau Amma]

> my %hash1 ;
> $hash {A} = 1 ;
> $hash {B} = 2 ;
>
> my %hash2 ;
>
> $hash {A} {b} = 2 ;
> $hash {B} {a} = 3 ;
> $hash {B} {b} = 4 ;
>
> my $nb = multi (\%hash1, 0) ;
> print "$nb\n" ;
>
> my $nb = multi (\%hash2, 0) ;
> print "$nb\n" ;
>
> Il faudrait renvoyer 1 pour le 1ier cas et 2 pour le second

OK, ça ressemble à la  profondeur (aussi appelée hauteur). Y a-t-il une
raison de ne pas utiliser (par exemple) Tree::Simple et sa méthode
getHeight? (cf https://metacpan.org/pod/Tree::Simple#Accessor-Methods)

> > J'ai construis des multi hassh (HoHoHoH...)
> > dont je voudrais connaitre le nombre de hash.
>
> La question me parait un peu vague: s'agit il du nombre de feuilles de
> l'arbre (car c'en est un, en fin de compte)? du nombre total de noeuds?
> de la profondeur de l'arbre?