Discussion :

[dams78]

bonjour,
voila je récupère un nombre qui a beaucoup de décimales, je voudrai donc n'en afficher que deux
si je fais un printf ("0.2f", $maVariable), cela met les deux décimales à zéro
999,999999 devient 999,00
j'ai aussi essayé en passant par sprintf mais le résultat est toujours le même...

comment faire?
merci de votre aide

[Jasmine80]

comment faire?

Peut-être une substitution

Code :

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

1
2
my $maVariable = 99.999999;
$maVariable =~ s/(\.\d{2})\d*/$1/;

[Olivier.p]

Code :

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

1
2
3
my $maVariable = 999.999999;
$maVariable = int($maVariable*100)/100;
print "$maVariable";

[dams78]

merci de ton aide, seulement cela ne change rien, cela ne fait aucune concaténation au niveau des décimales
j'avais déjà vu le d{2} mais cela ne faisait rien non plus...

[Jasmine80]

Désolée, je n'avais pas vu que tu utilisais une virgule ... j'ai utilisé un point dans mon expression régulière.

Utilise

Code :

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

$maVariable =~ s/(,\d{2})\d*/$1/;

[dams78]

impécable ça fonctionne
simple précision, cela ne fait pas d'arrondis? cela tronque c'est tout?

merci

[Jasmine80]

impécable ça fonctionne
simple précision, cela ne fait pas d'arrondis? cela tronque c'est tout?

merci

Oui, cela récupère les 2 chiffres après la virgule, n'est-ce pas ce que tu voulais?

Pour arrondir, regarde sur CPAN, tu as plusieurs modules permettant cela.

[dams78]

oui oui biensûr c'est ce que je voulais, je me posais juste la question
merci

[Philou67430]

La solution d'Oliver.p avec arrondi:

Code :

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

1
2
3
my $maVariable = 999.999999;
$maVariable = int($maVariable*100+50)/100;
print "$maVariable";

[Olivier.p]

Hmmm je dirais que l'arrondi n'est pas géré avec ta méthode Philou.

999,99999 * 100 = 99999,999 +50 = 100049,999 int -> 100049 / 100 = 1000,49
Alors que l'on attendait 1000,00 (arrondi à 0,01 près).

Pourquoi +50 ? +1 ça marche bien pour l'exemple aussi (même mieux !) mais bon le +X ne marche qu'en fonction du X.

à la limite une condition sur la troisième valeur décimale en fonction de si elle est plus petite que 5 ou non pour savoir si on incrémente de 1 ou de -1 le nombre X multiplié par 100.... Ca devient compliqué non ?

une méthode plus simple pour avoir l'arrondi ? (je sais ça ne répond pas à la question initiale mais le problème reste entier (humour) )

[Philou67430]

Ca ne marche pas, parce que j'ai écrit une grosse bêtise
La formule qui marche est la suivante :

Code :

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

1
2
3
my $maVariable = 999.999999;
$maVariable = int($maVariable*100+0.5)/100;
print "$maVariable";

En fait, c'est toujours 0,5 qu'il faut ajouter au nombre avant de prendre la partie entière.
Si les chiffres après la virgule sont < 0,5, le fait d'ajouter 0,5 et de prendre la partie entière ne modifie pas la valeur de la partie entière sans ajouter les 0,5.
En revanche, si les chiffres sont > 0,5, le fait d'ajouter 0,5 va augmenter de 1 le nombre, et faire l'arrondi supérieur.

[Olivier.p]

Bien vu

[Jasmine80]

Et bien, et bien quel débat pour une question qui paraissait pourtant si simple.
Néanmoins, le problème reste que $maVariable possédant une virgule, il ne sera pas reconnu comme un nombre par Perl. ^^ faudra donc d'office passer par une substitution à moins qu'il n'existe une autre option.

[Philou67430]

J'aurais tendance à dire, pour régler le problème de la virgule, qu'il conviendrait d'utiliser la localisation française pour les types numériques, en définissant LC_NUMERIC, mais je ne peux vérifier car cette locale ne semble pas installée sur ma configuration.

A essayer :

Code :

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

1
2
3
4
5
6
7
use locale;
use POSIX (strtod locale_h);
 
setlocale(LC_NUMERIC, "fr_FR");
my $maVariable = "999,999999"; # ou $maVariable = strtod("999,999999");
$maVariable = int($maVariable*100+0.5)/100;
print "$maVariable";