Discussion :

[antigone]

voici ma hash of hash of array:

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

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

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?

[Jedai]

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

Code :

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

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ï

[antigone]

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

[2Eurocents]

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

Code :

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

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

au lieu de

Code :

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

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

[antigone]

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

Code :

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

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=
}

[2Eurocents]

Corrige ainsi :

Code :

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

1
2
3
...
	    	foreach $i ( 0 .. $#{ $traces{$repertoire}{$fichier} } ) 
...

Le copier/coller vaut aussi pour la boucle, pas que le print

[antigone]

MERCI A VOUS DEUX

Je RECAPITULE L'EXEMPLE CORRIGE CA PEUX SERVIR

Code :

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

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";
 }

[Jedai]

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

--
Jedaï