Génération d'une hash de hash de tableau

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

---

j'essais d'ajouter un element à ma hash

Code:

---

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

---

puis j'affiche le tout:

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

---

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

Citation:

---

Envoyé par antigone

Par contre ce code ne fonctionne pas

Code:

---

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:

---

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:

---

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

Même en faisant ça

Code:

---

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?

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:

---

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ï