Parcours d'un hash de hash de hash

Version imprimable

Hello tlm,

J'ai un tableau qui ressemble à ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
%results = (
	'000001' => {
			1 => "A_val1",
			2 => "A_val2",
			3 => "A_val3",
			4 => "A_val4",
		},
	'000002' => {
			1 => "B_val1",
			2 => "B_val2",
			3 => "B_val3",
                        4 => { 'champ1'=>'12','champ2'=>'23'}
			5 => "B_val5",
		}
);

J'arrive à le parcourir et à reconnaitre le hash quand la variable en est un (par la fonction ref()) mais je n'arrive pas à parcourir le hash quand je le reconnais.

J'ai tenté un :

Code:

1
2
3
4
5
6
7
8
9
foreach my $k (sort(keys(%results))){
    for ($p=0;$p<=99;$p++){
        if (ref( $results{$k}{$p} ) eq 'HASH'){
             foreach my $val (keys %{$results{$k}{$p}}) {
                    print "[".$val." = ".${$results{$k}{$p}}{$val}."]<br />";
            }
        }
    }
}

mais le dernier foreach ne donne rien ... au pire une erreur.

Comment que je fais ? 8O

Balises [ code ] et [ /code ] ajoutées par 2Eurocents.

En première approche, j'aurai eu tendance à pratiquer ainsi ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#!/usr/bin/perl
 
use warnings;
use strict;
 
my %results = (
   '000001' => {
         1 => "A_val1",
         2 => "A_val2",
         3 => "A_val3",
         4 => "A_val4",
      },
   '000002' => {
         1 => "B_val1",
         2 => "B_val2",
         3 => "B_val3",
         4 => { 'champ1'=>'12','champ2'=>'23'},
         5 => "B_val5",
      }
);
 
foreach my $k (sort(keys(%results))){
  print "Clef $k, valeur $results{$k}\n";
  foreach my $p (0..99) {
    if (exists ($results{$k}{$p})) {
      print "Indice $p, valeur $results{$k}{$p}\n";
      if (ref ($results{$k}{$p})) {
        my $ref = $results{$k}{$p};
        foreach my $val (keys (%{$results{$k}{$p}})) {
          print "Dernière clef $val, valeur $results{$k}{$p}{$val}\n";
        }
      }
    }
  }
}

Cela suppose que l'on sache ce qu'il y a derrière la référence ... je fais ici la supposition qu'il s'agit d'un Hash (puisque je suis au courant de la structure des données).

Il faut se souvenir que le résultat de ref est un booléen : vrai, c'est une référence, ou faux, c'est un scalaire.

Bonne continuation.

27/06/2005, 15h49
ngere
Je suis en train d'étudier ton code. Mais pour l'instant, ça ne va pas plus loin que la condition :
Code:

1 2 if (ref ($results{$k}{$p}))
Dans le cas où les boucles rencontrent un hash, l'affichage est le suivant (par ex). Mais il ne va pas plus loin :
Code:

1 2 Clef 0000001740, valeur HASH(0x8bb4d78)
Je cherche, mais si tu vois comment faire, ton aide me serait précieuse

Bon, regardes si ceci t'apporte le bonheur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#! /usr/local/bin/perl -w
 
use strict;
 
my %results = (
   '000001' => {
         1 => "A_val1",
         2 => "A_val2",
         3 => "A_val3",
         4 => "A_val4",
      },
   '000002' => {
         1 => "B_val1",
         2 => "B_val2",
         3 => "B_val3",
         4 => { 'champ1'=>'12','champ2'=>'23'},
         5 => "B_val5",
      }
);
 
for my $k( sort keys %results ) {
    print "$k\n";
    for my $l( sort keys %{$results{$k}} ) {
        if( ref $results{$k}{$l} ) {
            print "\t$l\n";
            for my $m( sort keys %{$results{$k}{$l}} ) {
                print "\t\t$m\t$results{$k}{$l}{$m}\n";
            }
        }
        else {
            print "\t$l\t$results{$k}{$l}\n";
        }
    }
}

Par contre, si le niveau d'imbrication des hashes peut descendre à un niveau arbitrairement profond, il faut passer à une solution recursif.

N

30/06/2005, 17h38
ngere
Merci à tous les deux !

En fait, l'erreur ne se situé par qu'à ce niveau mais aussi au niveau de la création du hash le plus profond. Bien entendu, ça ne fonctionnait pas car le tableau n'était pas rempli correctement.

D'ailleurs, dans une boucle foreach, quelle est la différence entre appel de ce genre :
Code:

1 2 $val{$k}
et celui ci :
Code:

1 2 $val->{$k}
C'est certainement la base, mais j'ai vu des textes donnant les deux formulations comme étant équivalentes alors que dans mon cas précis, la première formulation ne fonctionne pas (pour affecter la donnée dans une cellule d'un autre tableau)
06/07/2005, 09h53
ngere

En fin de compte, cela fonctionne comme tel. Le problème provenait de la construction du tableau qui passe dans la moulinette. Plus précisemment, je mettais des valeurs dans un tableau dont le nom était toujours le même qui était mis dans le tableau général. Ceci dans une boucle. Le problème, c'est que seul le tableau entré dans le super tableau était pris en compte et remplacer les valeurs dans l'ensemble de ce dernier .... qui a dit "pointeur" dans la salle ?