table de hashage

**Momoze** · 16/11/2010, 15h19

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