Discussion :

[Momoze]

Bonjour, à tous alors mon but final serait de pouvoir ajouté plusieurs valeurs pour une même clé de ma table de hachage:

je part d'un document que j'ouvre que je lit, et pour chaque clé que je trouve,
je voudrait associé une ou plusieurs valeurs à cette même clé

j'ai voulu faire de cette manière, voici une partie de mon code :

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
 
#!/usr/bin/perl -w
 
use Getopt::Std;
getopts "d:o:";
my @data_seq =();
my %db_final =();
my @loc_os =();
 
 
if(!defined $opt_d or !defined $opt_o)
{
	die "
                toto
	\n";
}
 
my $output = $opt_o;
open(DESIGN,"$opt_d");
while(<DESIGN>){
	chomp;
	@data_seq = split(/\t/,$_);  #je récupère uniquement les clé
 
	@loc_os = split(/,/,$data_seq[1]); # je récupère les différentes valeur
 
	$db_final{$data_seq[0]}= \@loc_os;
	print "$db_final{$data_seq[0]} \n";
exit;

le problème est , quand j'affiche pour vérifié la première entrée, il ne m'affiche pas du tout les valeurs contenurs dans l'array loc_os,
mais plutot un message de ce type :

Code :

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

ARRAY(0xe8c9e0)

comment doit-je procéder ?
le fichier que je cherche à traiter est organisé sous la forme :

clé (tabulation)--> valeur1, valeur2
...

[thierry.chich]

Perso, quand j'ai des doutes sur la structure de donnée que j'ai créé, j'utilise Data:umper.

Code :

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

1
2
3
 
use Data::Dumper;
print Dumper($db_final);

Ca me montre comme c'est structuré.
Dans ton cas, je trouve cela dis assez normal que tu obtiennes que $db_final{$data_seq[0]} est une référence sur un tableau, puisque c'est exactement ce que tu lui dis la ligne d'avant.

Si tu veux traiter le tableau lui même, il s'écrit:

Code :

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

1
2
 
@{$db_final{$data_seq[0]}}