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.