[HASH de HASH de ARRAY]

voici ma hash of hash of array:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
%traces = (
        rep1 => {
                f1      => ["t1","t2","t3"],
                f2       => ["t1","t2"],
        },
        rep2     => {
                f1      => ["t1","t2","t3","t4"],
                f2      => ["t1","t2"],
                f3 => "trace2",
        },
        rep3    => {
                f1      => ["t1","t2"],
                f2      => ["t1","t2"],
                f3      => ["t1","t2"],
        },
 );

J'essai de la manipuler

j'essai d'afficher chaque champs des tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
foreach $repertoire ( keys %traces ) 
{
	print "$repertoire: { ";
	for $fichier ( keys %{ $traces{$repertoire} } ) 
	{    
		print "$fichier=  ";
	    	foreach $i ( 0 .. $#{ $traces{$repertoire{$fichier}} } ) 
	    	{
	       		# print "$fichier=$traces{$repertoire}{$repertoire{$fichier}[$i]}";
	       	}
	    	print "\n";
	}
	print "}\n";
 }

les champs affichés sont vide

affichage:

rep1{: f1=
f2=
}
rep2:: {f1=
f2=
}

rep2: : {f1=
f2=
f3=
}

pas facile a manipuler ...Est ce que quelqu'un voix l'erreur?

Tu fais un peu n'importe quoi avec les indexs....
Code:

1 2 3 4 5 foreach $i ( 0 .. $#{ $traces{$repertoire}{$fichier} } ) { print "$fichier=$traces{$repertoire}{$fichier}[$i]"; }
Qu'est ce qui t'a pris de fourrer cette accolade à la fin alors que tu avais bien commencé ?

--
Jedaï

foreach $i ( 0 .. $#{ $traces{$repertoire}{$fichier} } )
{
print "$fichier=$traces{$repertoire}{$fichier}[$i]";
}

Tu parles des crochets ? Si oui je les utilise parce que à la fin de ma chaine de structure j'ai un tableau.
Donc [$i]est sencé etre un indice de tableau

Ce que Jedaï te dit, c'est que tu as écris

Code:

print "$fichier=$traces{$repertoire}{$repertoire{$fichier}[$i]}";

au lieu de

Code:

print "$fichier=$traces{$repertoire}{$fichier}[$i]";

pb de copier collé, revoici donc mon code avec le meme affichage d'erreur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
foreach $repertoire ( keys %traces ) 
{
	print "$repertoire: { ";
	for $fichier ( keys %{ $traces{$repertoire} } ) 
	{    
		print "$fichier=  ";
	    	foreach $i ( 0 .. $#{ $traces{$repertoire{$fichier}} } ) 
	    	{
	       		print "$fichier=$traces{$repertoire}{$fichier}[$i]";
	       	}
	    	print "\n";
	}
	print "}\n";
 }

affichage:

rep1:{
f1=
f2=
}
rep2:{
f1=
f2=
f3=
}
rep3:{
f1=
f2=
f3=
}

Corrige ainsi :
Code:

1 2 3 ... foreach $i ( 0 .. $#{ $traces{$repertoire}{$fichier} } ) ...
Le copier/coller vaut aussi pour la boucle, pas que le print ;)

MERCI A VOUS DEUX

Je RECAPITULE L'EXEMPLE CORRIGE CA PEUX SERVIR

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
foreach $repertoire ( keys %traces ) 
{
	print "$repertoire: { ";
	for $fichier ( keys %{ $traces{$repertoire} } ) 
	{    print $fichier."=( ";
	    	foreach $i ( 0 .. $#{ $traces{$repertoire}{$fichier}}  ) 
	    	{
	       		print "$traces{$repertoire}{$fichier}[$i], ";
	       	}
	    print "}\n";   		
	}
	print "}\n";
 }

Tu aurais pu faire un copier-coller de mon code avant d'expliquer qu'il ne marchait pas... :evil:

--
Jedaï