table de hashage

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:

---

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:

---

ARRAY(0xe8c9e0)

---

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

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

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

Code:

---

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:

---

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

---