Discussion :

[ngere]

Hello tlm,

J'ai un tableau qui ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?


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

[2Eurocents]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ngere]

Je suis en train d'étudier ton code. Mais pour l'instant, ça ne va pas plus loin que la condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
     Clef 0000001740, valeur HASH(0x8bb4d78)

Je cherche, mais si tu vois comment faire, ton aide me serait précieuse

[nematoad]

Bon, regardes si ceci t'apporte le bonheur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
         $val{$k}

et celui ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[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 ?