Discussion :

[legonzo]

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 :

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

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.

[Beniou]

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

[legonzo]

...
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 :

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

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.