<div dir="auto"><div>Salut,</div><div dir="auto"> </div><div dir="auto">Dans l'appel récursif, tu déréférences la hash créé a la volée, càd que %hoh n'est pas défini et au final tu passes une hash et non une référence de hash ce qui va chambouler tes arguments.</div><div dir="auto">Tu devrais utiliser "use strict; use warnings;" pour y voir plus clair. <div class="gmail_quote" dir="auto"><div dir="ltr">Le jeu. 1 nov. 2018 03:17, Patrick Dupre <<a href="mailto:pdupre@gmx.com">pdupre@gmx.com</a>> a écrit : </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">OK, Je vais regarder. Mais, il y a quelque chose que je ne comprends pas dans ce que j'ai ecris. Pourqoui $nb n'ai pas passe dans l'appel ? #!/usr/bin/perl sub multi { my ($hoh, $nb) = @_ ; print "nb: $$nb\n" ; if (ref ($hoh) eq "HASH") { $$nb++ ; foreach my $i (keys %{$hoh}) { print "i: $i, $$nb\n" ; multi (%{$hoh {$i}}, $nb) ; } print "HAH\n" ; } else { return ; } } my %hash0 ; my %hash1 ; $hash1 {A} = 1 ; $hash1 {B} = 2 ; my %hash2 ; $hash2 {A} {a} = 1 ; $hash2 {A} {b} = 2 ; $hash2 {B} {a} = 3 ; $hash2 {B} {b} = 4 ; my $nb = 0 ; multi (\%hash0, \$nb) ; print "0: $nb\n" ; $nb = 0 ; multi (\%hash1, \$nb) ; print "1: $nb\n" ; #my $nb = multi (\%hash2, 0) ; #print "$nb\n" ; =========================================================================== Patrick DUPRÉ | | email: <a href="mailto:pdupre@gmx.com" target="_blank" rel="noreferrer">pdupre@gmx.com</a> Laboratoire de Physico-Chimie de l'Atmosphère | | Université du Littoral-Côte d'Opale | | Tel. (33)-(0)3 28 23 76 12 | | Fax: 03 28 65 82 44 189A, avenue Maurice Schumann | | 59140 Dunkerque, France =========================================================================== > Sent: Thursday, November 01, 2018 at 3:10 AM > From: "Pau Amma" <<a href="mailto:pauamma@gundo.com" target="_blank" rel="noreferrer">pauamma@gundo.com</a>> > To: perl <<a href="mailto:perl@mongueurs.net" target="_blank" rel="noreferrer">perl@mongueurs.net</a>> > Subject: Re: [Perl] multi hash > > > 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 <a href="https://metacpan.org/pod/Tree::Simple#Accessor-Methods" rel="noreferrer noreferrer" target="_blank">https://metacpan.org/pod/Tree::Simple#Accessor-Methods</a>) > > > > 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? > > _______________________________________________ > Perl mailing list > <a href="mailto:Perl@mongueurs.net" target="_blank" rel="noreferrer">Perl@mongueurs.net</a> > <a href="http://listes.mongueurs.net/mailman/listinfo/perl" rel="noreferrer noreferrer" target="_blank">http://listes.mongueurs.net/mailman/listinfo/perl</a> > Attention, les archives sont publiques > _______________________________________________ Perl mailing list <a href="mailto:Perl@mongueurs.net" target="_blank" rel="noreferrer">Perl@mongueurs.net</a> <a href="http://listes.mongueurs.net/mailman/listinfo/perl" rel="noreferrer noreferrer" target="_blank">http://listes.mongueurs.net/mailman/listinfo/perl</a> Attention, les archives sont publiques </blockquote></div></div></div>