Discussion :

[pontarose]

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 :

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

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

[Philou67430]

Code :

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

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

[pontarose]

un grand Merci Philou

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

Code :

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

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");
}

[Philou67430]

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

Code :

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

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

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

Code :

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

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

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

Code :

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

1
2
use strict;
use warnings;

ce qui est fortement recommandé.