Creer une hash contenant un tableau

Version imprimable

Bonjour/Bonsoir,
Je viens de commencer le perl et je dois concevoir une application dans laquelle je suis ammené à concevoir une hash dans laquelle se situe un tableau.
Après quelques recherches sur internet j'ai lu qu'une hash ne peut contenir qu'un scalaire donc j'ai procédé comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 my %group = (); #rajout du groupe aux données disponibles my $groupname = @{$k}[0]; #Cette ligne est initialisee en dehors de ce bout de code for(my $i=0; $i < scalar(@{$k}); $i = $i+2) { my $sub_groupname = @{$k}[$i]; my @tab = (); if(defined($group{$sub_groupname})) {@tab=@{$group{$sub_groupname}};} push @tab, ${$k}[$i+1]; $group{$sub_groupname} = \@tab; }
Mon probleme est que la ligne :
Code:

1 2 $group{$sub_groupname} = \@tab;
ne mémorise que la derniere valeur comme si le programme ne tenait pas compte du tableau.

Pouvez vous me fournir une solution a ce problème s'il vous plait?
Je vous remercie.

21/04/2009, 00h01
djibril

Concrètement, que souhaites tu faire ?
Car ton code est vraiment pas bien écrit.
21/04/2009, 07h21
ultimate_manx

Salut,

Je suis conscient que mon code doit être vraiment horrible. Comme je le disais j'ai commencé le perl il y a une semaine car je dois réaliser une application basée sur ce langage.

Concrètement je souhaite mettre en place cette structure :

hash_map

|________hash_map
|_________tableau
la partie:

hash_map

|________hash_map
à déja été réalisée. Mon probleme survient quand je tente d'ajouter le tableau à la seconde hash map. Il considère mon tableau comme une simple valeur, du coup les seules les dernières données rencontrées sont enregistrées.

pour résumer je souhaite donc de l'aide pour la réalisation de la partie :
hash_map

|________tableau
J'espère que j'ai été un peu plus clair.

Coordialement.

Citation:

Je viens de commencer le perl et je dois concevoir une application dans laquelle je suis ammené à concevoir une hash dans laquelle se situe un tableau.

Voila ce que ton code semble vouloir faire, mais sans plus d'explications et de commentaires, il est difficile de le comprendre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
# clé : $sub_group (${$k}[$i])   valeur : array contenant les valeurs de ${$k}[$i+1]
my %group = ();
 
#rajout du groupe aux données disponibles
my $groupname = ${$k}[0]; #Cette ligne est initialisee en dehors de ce bout de code
 
 
for ( my $i=0; $i < @{$k}; $i += 2 ){
 
	my $sub_groupname =  ${$k}[$i];
 
	# si $group{$sub_groupname} existe, on ajoute la valeur de ${$k}[$i+1] à l'array qui lui est associé 
	if( exists $group{$sub_groupname} ){
		push @{$group{$sub_groupname}}, ${$k}[$i+1];
	}
 
	# si $group{$sub_groupname} n'existe pas, on le crée et sa valeur est un array contenant la valeur ${$k}[$i+1]
	else {
		my @tab = (${$k}[$i+1]);
		$group{$sub_groupname} = \@tab;
	}
 
}
 
# parcours des résultats obtenus
foreach my $sub_groupname (keys %group){
 
	print "$sub_groupname\n";
	map {print "=>$_\n";} @{$group{$sub_groupname}};
}

21/04/2009, 09h12
ultimate_manx

Oui c'est tout a fait ce que on code est "sensé" faire mais il ne le fait pas!

A chaque fois qu'il detecte un sous groupe celui-ci me recree le tableau(ou ecrase la valeur qui y etait) au lieu de rajouter la nouvelle valeur en fin de tableau. J'ai l'impression qu'il considère mon tableau juste comme une valeur et non pas un tableau.

D'ou pensez vous que cela vienne?

Citation:

Envoyé par ultimate_manx

D'ou pensez vous que cela vienne?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#!/usr/local/bin/perl
 
 
use strict;
use warnings;
 
 
my @val = ('sub_0', 'sub_1', 'sub_2', 'sub_3', 'sub_4', 'sub_5', 'sub_8', 'sub_7', 'sub_8', 'sub_9');
my $k = \@val;
 
 
 
# clé : $sub_group    valeur : array contenant les valeurs de ${$k}[$i]
my %group = ();
 
#rajout du groupe aux données disponibles
my $groupname = ${$k}[0]; #Cette ligne est initialisee en dehors de ce bout de code
 
 
for ( my $i=0; $i < @{$k}; $i += 2 ){
 
	my $sub_groupname =  ${$k}[$i];
 
	# si $group{$sub_groupname} existe, on ajoute la valeur de ${$k}[$i+1] à l'array qui lui est associé 
	if( exists $group{$sub_groupname} ){
		push @{$group{$sub_groupname}}, ${$k}[$i+1];
	}
 
	# si $group{$sub_groupname} n'existe pas, on le crée et sa valeur est un array contenant la valeur ${$k}[$i+1]
	else {
		my @tab = (${$k}[$i+1]);
		$group{$sub_groupname} = \@tab;
	}
 
}
 
# parcours des résultats obtenus
foreach my $sub_groupname (keys %group){
 
	print "$sub_groupname\n";
	map {print "=>$_\n";} @{$group{$sub_groupname}};
}

Si on utilise un petit array @val, dans l'exemple ci-dessus, on voit bien que les valeurs ne sont pas écrasées et que la clé sub_8 contient bien un array avec les 2 valeurs sub_7 et sub_9.

Il n'y a peut-être pas de problème mais simplement le fait que tu n'as pas plus d'une valeur associée à chaque clé. Vérifie les valeurs de ton array @{$k}.

21/04/2009, 10h57
ultimate_manx

Merci beaucoup mon probleme est résolu. Jasmine j'ai adapté ta solution à mon probleme.

Encore merci a tous ceux qui ont contribué à ce post. :yaisse2: