Valeur négative en perl

Bonjour à tous,

Je viens d'être confronté à un truc auquel je n'avais jusqu'alors pas fait attention, et cela me pose un problème car pour le cas présent tous mes calculs réalisés jusqu'ici sont faux, exemple:

Code:

---

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

my @list= qw/ +:12-06-2010:Arrêt:-100:niet +:15-06-2010:Autre:-64.11:niet *:09-07-2010:Divers:419.01:niet *:27-06-2010:Divers:169.89:niet /;   my $res= 0; grep { my ($type, $sum)= (split /:/, $_)[0,3]; $sum /= 2 if $type eq "*"; $res -= $sum; }@list; print "Res: ", $res, "\n";

---

Je pensais jusqu'ici que par exemple ce bout de code retournait effectivement comme valeur -330.34 (ce qui en tout état de cause est le calcul juste), or à l'exécution, j'ai eu la fâcheuse surprise d'obtenir un joli -130.34 ???

LeGonZo.

Bonjour,

Pourrais-tu expliquer ton calcul parce que là avec ton code et ton exemple je ne vois pas comment on obtient le fameux -330.34 .
En effet, en suivant ton code et ton exemple cela donne bien le -130.34 donné par Perl :

res = 0 - (-100) - (-64.11) - (419.01 / 2) - (169.89 / 2) = -130.34

Citation:

---

Envoyé par Beniou

...
res = 0 - (-100) - (-64.11) - (419.01 / 2) - (169.89 / 2) = -130.34
...

---

Effectivement, je viens de m'apercevoir de mon ânerie, j'avais oublié le premier moins juste après le zéro. Pour réaliser le petit calcul souhaité, il suffisait d'initialiser la variable (dans l'exemple) avec le premier nombre et non à zéro.

Code:

---

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

my @list= qw/ +:12-06-2010:Arrêt:-100:niet +:15-06-2010:Autre:-64.11:niet *:09-07-2010:Divers:419.01:niet *:27-06-2010:Divers:169.89:niet /;   my $res= (split /:/, (shift @list))[3]; grep { my ($type, $sum)= (split /:/, $_)[0,3]; $sum /= 2 if $type eq "*"; $res -= $sum; }@list; print "Res: ", $res, "\n";

---

Quand je pense que la réponse était devant mes yeux.
Encore une fois merci bien Beniou.