alimentation d'hash en fonction de ses clés

**PadawanInPerl** · 16/04/2014, 16h47

Bonjour,

je pensais... apparemment Bêtement

que :

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
 
 
structure conditionnelle {
 
my $cle = $tab[1] ;
my %h;
 
       if (exists ($h{$cle}) ) # si ma clé existe en tant que clé dans mon hash
        {
          $h_valeur = $h{$cle}; # alors j'en récupère la valeur
 
          $h_valeur += $tab[11]; # je la modifie
 
          $h{$cle} = $h_valeur; # je la réinsère à ma clé
          $h_valeur = 0;
        }
        else
        {
          $h{$cle} = $tab[11] ; # si ma clé n'existe pas dans mon hash, je crée une clé et lui attribut une valeur...
 
        }
 
 
}

Merci de me remettre à l'ordre ;O)

**Lolo78** · 16/04/2014, 17h27

Bonjour.

Et c'est quoi ta question?

La seule chose qui soit manifestement fausse dans le code que tu présentes est le

Code :

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

1
2
3
structure conditionnelle {
(...)
}

qui n'est pas du code Perl, mais, ça, je pense que tu t'en doutes.

A part cela, tu déclares un hash %h, qui est donc créé à vide, et, immédiatement après, tu testes:

Code :

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

if (exists ($h{$cle}) )

ce test reverra forcément faux (l'élément ne peut exister, le hash vient d'être créé à vide), si bien que ton code, tel qu'il est actuellement, passera toujours dans la branche else du if.

Maintenant, si l'on suppose le hash alimenté précédemment, je ré-écrirais le if comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
 
if (defined ($h{$cle}) )   {    
          my $h_valeur = $h{$cle}; # déclaration de la variable avec my, ce qui la rend locale au bloc
          $h_valeur += $tab[11]; 
          $h{$cle} = $h_valeur; 
          #  $h_valeur = 0; inutile
} else {
          $h{$cle} = $tab[11] ;
}

ou, plus simplement:

Code :

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

1
2
3
4
5
6
 
if (defined ($h{$cle}) )   {    
          $h{$cle} += $tab[11]; # on incrémente directement la valeur contenue dans le hash
} else {
          $h{$cle} = $tab[11] ;
}

Ou encore, en utilisant l'opérateur "ternaire":

Code :

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

1
2
 
$h{$cle} = defined $h{$cle} ? $h{$cle} + tab[11] : $tab[11];

On peut même simplifier encore plus grâce au phénomène d'autovivification: si tu ajoutes un nombre à la valeur d'un hash non définie, celle-ci est créée à la volée avec une valeur 0, si bien que, dans ce cas précis, il n'y a même pas besoin de tester si le hash est défini pour cette clé. Ce qui donne ce code encore plus court:

Code :

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

1
2
 
$h{$cle} += $tab[11];

Je ne recommande cependant pas forcément à un débutant d'utiliser cette dernière possibilité car, mal maîtrisée, elle peut conduire à des surprises. Je te conseillerais donc d'utiliser plutôt cette version:

Code :

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

1
2
3
4
5
6
 
if (exists ($h{$cle}) )   {    
          $h{$cle} += $tab[11]; # on incrémente directement la valeur contenue dans le hash
} else {
          $h{$cle} = $tab[11] ;
}

J'ignore si je réponds à ta question, mais comme tu n'avais pas posé de question, je ne peux faire beaucoup plus...