Discussion :

[antigone]

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      => ["t1","t2"],
        },
        rep3    => {
                f1      => ["t1","t2"],
                f2      => ["t1","t2"],
                f3      => ["t1","t2"],
        },
 );

j'essais d'ajouter un element à ma hash

Code :

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

$traces{"rep4"}{"f1"} =["t1","t2"];

puis j'affiche le tout:

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 "$traces{$repertoire}{$fichier}[$i], ";
	       	}
	    print "}\n";   		
	}
	print "}\n";
}

ça fonctionne bien ...

affichage

rep1{
f1={t1,t2,t3}
f2={t1,t2}
}

rep2{
f1={t1,t2,t3,t4}
f2={t1,t2}
f3={t1,t2}
}

rep3{
f1={t1,t2}
f2={t1,t2}
f3={t1,t2}
}

rep4{
f1={t1,t2}
}

Par contre ce code ne fonctionne pas

Code :

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

1
2
3
my @t=["t1","t2"];
 
$traces{"rep4"}{"f1"} =[ @t ];

affichage pour rep4

rep4{
f1={ARRAY(0x1a62b68)}
}

est ce que quelqu'un peux m'aider?

Merci d'avance

[2Eurocents]

Par contre ce code ne fonctionne pas

Code :

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

1
2
3
my @t=["t1","t2"];
 
$traces{"rep4"}{"f1"} =[ @t ];

affichage pour rep4

rep4{
f1={ARRAY(0x1a62b68)}
}

est ce que quelqu'un peux m'aider?

Merci d'avance

Pourquoi anonymiser deux fois la référence sur la liste ?

Soit tu fais

Code :

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

1
2
my $t=["t1","t2"];
$traces{"rep4"}{"f1"} = $t;

Et $t est une référence anonyme (pas tant que ça) à la liste ("t1", "t2").

Soit tu fais

Code :

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

1
2
my @t=("t1","t2");
$traces{"rep4"}{"f1"} = [ @t ];

Et @t est une liste, que tu prends en référence anonyme pour ranger dans ton hash

[antigone]

Même en faisant ça

Code :

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

1
2
3
4
my @t;
$t=["t1","t2"];
 
$traces{"rep4"}{"f1"} =[ @t ];

ça fonctionne pas!!

donc si j'ai bien compris si on initialise un tableau en faisant appelle à sa ref => on ne peux le maanipuler que via sa ref?

[Jedai]

Un tableau n'a pas de ref associée !! C'est à dire que $tab n'a rien à voir avec @tab (ou avec $tab[i] qui est un élément de @tab).

Donc ton dernier code n'a aucune chance de fonctionner :

Code :

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

1
2
3
4
5
 
my @t;
$t=["t1","t2"];
 
$traces{"rep4"}{"f1"} =[ @t ];

Ceci initialise un tableau vide @t, puis met une référence au tableau ("t1", "t2") dans $t, et enfin affecte une référence à un tableau contenant les éléments de @t (c'est à dire aucun !) à $traces{rep4}{f1} (les guillemets sont superflus dans les indices de hash).

Essaye de bien revoir les types de bases de Perl pour t'éclaircir les idées.

--
Jedaï