tableau de hash

bonjour,

j'essaye de passer par les tableaux de hash...

pour un identifiant donné, j'ai plusieurs valeurs et j'aimerais au fianl avoir pour identifiant la somme de ces valeurs
aaa 1
aaa 25
aaa 50
bbb 10
bbb 30

au final
aaa 76
bbb 40

Code:

---

1 2 3 4 5 6 7 8 9

my %hash=(); open (U, "< xxx") or die("Impossible!"); while( my $ligne=<U>){ if($ligne =~ /(.+)\t([0-9]+)$/){ %hash= ("$1"=>$2); foreach my $identifiant (keys %hash){ print("$identifiant: $hash{$identifiant}\n"); } }

---

je récupère bien mes identifiants unique ($identifiant) mais je bloque pour obtenir la somme. Je pense au tableau de hash...mais je n'arrive pas à matérialiser

Code:

---

1 2 3 4 5 6 7 8 9 10

my %hash=(); open (U, "< xxx") or die("Impossible!"); while (my $ligne = <U>) { if (my ($cle, $valeur) = $ligne =~ /(.+)\t([0-9]+)$/) { $hash{$cle} += $valeur; } } foreach my $identifiant (keys %hash){ print("$identifiant: $hash{$identifiant}\n"); }

---

Il y avait plusieurs erreurs à corriger :)

un grand Merci Philou

Je ne suis pas super à l'aise avec les hash et donc je détaille encore!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

my %hash=(); open (U, "< xxx") or die("Impossible!"); while (my $ligne = <U>) { if (my ($cle, $valeur) = $ligne =~ /(.+)\t([0-9]+)$/) { my $cle=$1; my $valeur=$2; $hash{$cle} += $valeur; } } foreach my $identifiant (keys %hash){ print("$identifiant: $hash{$identifiant}\n"); }

---

C'est ligne sont à la fois superflues, mais personnellement, je les déconseille (usage des variables $1 et $2 à effet de bord) :

Code:

---

1 2	my $cle=$1; my $valeur=$2;

---

L'affectation de $cle et $valeur se fait "automagiquement" avec ce type d'instruction :

Code:

---

my ($cle, $valeur) = $chaine =~ /(...)...(...)/;

---

Par ailleurs, ton écriture devrait générer une warning si tu utilises

Code:

---

1 2	use strict; use warnings;

---

ce qui est fortement recommandé.