Discussion :

[ultimate_manx]

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 :

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

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 :

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

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.

[djibril]

Concrètement, que souhaites tu faire ?
Car ton code est vraiment pas bien écrit.

[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.

[Jasmine80]

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 :

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

[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?

[Jasmine80]

D'ou pensez vous que cela vienne?

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