Discussion :

[gillessoixantequator]

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 :

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

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

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

[gillessoixantequator]

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

Code :

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

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

par

Code :

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

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

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