[Perl] multi hash

[Patrick Dupre]

OK,

Voici ce que j'ai commence a construire

#!/usr/bin/perl

sub multi {
  my ($hoh, $nb) = @_ ;
  if (ref (@_) eq "HASH") {
#    foreach my $i (keys %{@_ {$i}}) {
#      multi (%{@_ {$i}}, $nb++) ;
#      }
print "HAH\n" ;
    }
  else {
    return $nb ;
    }
  }

my %hash1 ;
$hash {A} = 1 ;
$hash {B} = 2 ;

my %hash2 ;
$hash {A} {a} = 1 ;
$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

===========================================================================
 Patrick DUPRÉ                                 | | email: pdupre at gmx.com
 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 2:37 AM
> From: "Pau Amma" <pauamma at gundo.com>
> To: perl <perl at mongueurs.net>
> Subject: Re: [Perl] multi hash
>
> > 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
> Perl at mongueurs.net
> http://listes.mongueurs.net/mailman/listinfo/perl
> Attention, les archives sont publiques
>