Discussion :

[planetevoyage]

Bonjour,

voila mon probleme :

Je veux creer un hash de hash alors j'ai procédé de la maniere suivante :

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
 
my %allClasseIdx;
my %clTmp;
 
 
$clTmp{Label} = "classe2";
$clTmp{Ext} = 9;
$clTmp{Int} = 9;
$clTmp{VE} = 10;
$allClasseIdx{cl2} = \%clTmp;
 
 
$clTmp{Label} ="";
$clTmp{Label} = "classe3a";
$clTmp{Ext} = 13;
$clTmp{Int} = 14;
$clTmp{VE} = 17;
$allClasseIdx{cl3a} = \%clTmp;

Le problème est que lorsque je fais un

Code :

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

1
2
 
print "Label classe 2 : $allClasseIdx{cl2}{Label}\n";

J'obtient classe3a au lieu de classe2 !!

Je ne vois vraiement pas pourquoi. Si vous pouvez m'éclairer !

Jérôme

[Cyspak]

Ca ce n'est pas un hash de hash mais 2 hash dans un hash :
Je m'explique, toi tu as créé ca :
hash :
- hash1 =>data
- hash2 =>data

Alors qu'il aurait fallu créé ca :

hash : - hash1=>hash2=>data

Ca c'est un hash de hash.
C'est ton initialisation qui ne va pas, voilà l'init d'un hash de hash :
hash{hash1}{hash2} = data;

[le troll Hebus]

ton problème est tout simplement que tu écrases les premières valeurs de ton hash %clTmp par les deuxièmes. L'adresse mémoire de ce hash est tj la même, donc quand tu le déréférences, il te donne les dernières valeurs qu'il a en stock...plutôt que d'utiliser un hash temporaire, utilise un hashage anonyme:

Code :

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

1
2
3
4
5
6
7
8
9
 
use strict
 
my %allClasseIdx = ();
 
$allClasseIdx{cl2} = {'Label' => 'classe2', 'Ext' => '9'};
$allClasseIdx{cl3a} = {'Label' => 'classe3a', 'Ext' => '13'};
 
print "Label classe2 = ", ${$allClasseIdx{cl2}}{Label};

[nyal]

Bonjour,

voila mon probleme :

Je veux creer un hash de hash alors j'ai procédé de la maniere suivante :

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
 
my %allClasseIdx;
my %clTmp;
 
 
$clTmp{Label} = "classe2";
$clTmp{Ext} = 9;
$clTmp{Int} = 9;
$clTmp{VE} = 10;
$allClasseIdx{cl2} = \%clTmp;
 
 
$clTmp{Label} ="";
$clTmp{Label} = "classe3a";
$clTmp{Ext} = 13;
$clTmp{Int} = 14;
$clTmp{VE} = 17;
$allClasseIdx{cl3a} = \%clTmp;

Le problème est que lorsque je fais un

Code :

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

1
2
 
print "Label classe 2 : $allClasseIdx{cl2}{Label}\n";

J'obtient classe3a au lieu de classe2 !!

Je ne vois vraiement pas pourquoi. Si vous pouvez m'éclairer !

Jérôme

C'est une erreur classique.
Donc voici deja comment la regler :

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
 
my %allClasseIdx;
my %clTmp;
 
 
$allClasseIdx{cl2} = {};
$clTmp{Label} = "classe2";
$clTmp{Ext} = 9;
$clTmp{Int} = 9;
$clTmp{VE} = 10;
$allClasseIdx{cl2} = {%clTmp};
 
 
$clTmp{Label} ="";
$clTmp{Label} = "classe3a";
$clTmp{Ext} = 13;
$clTmp{Int} = 14;
$clTmp{VE} = 17;
$allClasseIdx{cl3a} = {%clTmp};
 
print "Label classe 2 : ${$allClasseIdx{cl2}}{Label}\n";

Le probleme venait de cela :

Code :

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

1
2
 
$allClasseIdx{cl2} = \%clTmp;

Quand tu fais cela, il va pointer sur une zone memoire. Ensuite tu modifies cette zone memoire :

Code :

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

1
2
 
$clTmp{Label} = "classe3a";

Et par consequent la valeur dans $allClasseIdx{cl2} {Label} change aussi.
Pour remedier a cela, il faut utiliser l'operateur {} pour que Perl fasse une copie en meme temps. Ainsi tu auras une valeur qui ne changera pas dans ton tableau.

J'espere que c'est clair .

Cordialement

[planetevoyage]

Merci c'est tres clair

Jérome