hash multiple erreur

bonjour

j'utilise ce bout de code pour extraire la liste des node pour tk:tree. Malheureusement le troisième hash ne fonctionne pas et je ne comprend pas pourquoi ?

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

my $jobs = { tnt => { test => { bouquet1 => { 'chaine_1' => '', ... }, bouquet2 => { 'chaine_3' => '', ... }, bouquet2 => { 'chaine_4' => '', ... } } }, .... my @dir_list;   for my $p (sort keys %{$jobs}) { push(@dir_list, "$p"); my @listofjobs = sort keys %{$jobs->{$p}}; for my $j (@listofjobs) { push(@dir_list, "$p/$j"); my @list_options = sort keys %{$jobs->{$j}}; for my $k (@list_options) { push(@dir_list, "$p/$j/$k"); } } }

---

les 2 premiers hash fonctionnent parfaitement, mais

Code:

---

my @list_options = sort keys %{$jobs->{$j}};

---

ne me donne aucun résultat ??

Peux-tu me dire quelle erreur je commets ? merci

Gilles

PS merci ^pour la mise en page

en fait, il fallait juste trouver la doc sur les références de hash et changer

Code:

---

my @list_options = sort keys %{$jobs->{$j}};

---

par

Code:

---

my @list_options = sort keys %{$jobs->{$k}{$j}};

---

:ccool:
Désolé ce post n'avait pas sa place dans la partie graphique