[langage] implementer un hash

bonjour tout le monde,

j'ai un problème car je voudrai rermplir un hash, j'utilise le code:

Code:

---

1 2 3

%hash = ('$comment'=>'$score_total[$boucle]'); print "%hash";

---

en fait, mon programme me lit un fichier fasta, il sépare les commentaires et les met dans $comment puis les sequences et les met dans $sequence, ensuite chaque sequence recoit un score, donc je voudrai que la reference soit la clé du hash et le score la valeur, pour pouvoir ensuite trier ses scores par ordre croissant (ce que j'ai réussi à faire dans un cas plus simple car ça a déjà été fait sur le forum). Donc mon pbl est que je n'arrive pas soit à remplir le hash, soit à l'afficher.

j'ai pensé à recopier tous les scores ds un tableau puis après recopier ce tableau dans un hash mais ca ne donne rien....

merci de l'aide !

pour printer un hash faut faire par exemple comme suit:

Code:

---

1 2 3

foreach my $key (keys(%hash)){ print ($key, "\t", $hash{$key},"\n"); }

---

espérant que ca t'aidera à mieux voir où se situe ton pb.

en fait qd je tape ca

Code:

---

1 2 3

%hash = ('$comment'=>'$score_total[$boucle]'); foreach my $key (keys(%hash)) {print ($key, "\t", $hash {$key}, "\n");}

---

j'ai ceci qui s'affiche dans le terminal

Citation:

---

$comment $score_total[$boucle]

---

dc je pense que mon pbl vient du fait que je n'arrive pas à remplir le hash.......

C'est à cause des quotes '. Il faut écrire comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

use Data::Dumper;   my %hash = ();   for (...) { ... $hash {$comment} = $score_total [$boucle] ... }   print Dumper (\%hash);

---

en effet, je viens juste de m'en rendre compte avant de lire ton message, j'ai simplement changé les cotes par des guillemets et ca marche très bien maintenant!

merci :lol: