Perl

[Résolu] Sprintf entier & décimal

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] Sprintf entier & décimal

Sethenssen

Bonjour,

Voici l'idée,
Quand je requête dans ma base MySQL le chiffre d'affaire il me donne en valeur: 252.5678
Je peux aussi avoir pour une autre entité un chiffre d'affaire de 12356.6578

La mise en forme ne me plait pas, je veux des virgules et non des points et seulement 2 chiffres après la virgule.
Du coup je fais ça:

Code :

$HOUSE= sprintf '%.2f', ($HOUSE);
$HOUSE=~s/\./\,/g;

Cela fonctionne.

Le résultat est:
252,56
12356,65

Cependant à l'affichage le fait que les entiers ne soit pas alignés cela me décale mon \t

Je voudrais avoir:
00252,56
12356,65

Est-ce possible?
Comment faire?

Merci d'avance.

Message édité par Sethenssen le 17-02-2012 à 14:54:17

Publicité

olivthill

Essayer

$HOUSE= sprintf '%05.2f', ($HOUSE);
$HOUSE=~s/\./\,/g;

gilou

Modérateur
Modzilla

Pas mieux.
Noter aussi que si on veut juste un alignement correct (mais pas de 0 initiaux), on peut utiliser Number::Format

Code :

#!/usr/bin/perl
use warnings;
use strict;
 
use Number::Format;
 
my $fmat = new Number::Format(-thousands_sep   => '',
                              -decimal_point   => ',');
 
print $fmat->format_picture(252.5678, '#####,##'), "\n";
print $fmat->format_picture(12356.6578, '#####,##'), "\n";

C:\Perl>perl fnum.pl
252,57
12356,66

Noter aussi que ça rajoute un blanc initial (le module attend un nom d'unité (ici vide) et met un blanc après avant de mettre le nombre formaté et arrondi).
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Sethenssen

Merci, cela fonctionne avec

Code :

$HOUSE= sprintf '%8.2f', ($HOUSE);

En revanche Gilou je n'ai pus tester ta solution car je n'ai pas ce module sur la machine.
Impossible pour moi de faire installer de nouveau module Perl à court terme.

Merci d'avoir pris le temps de répondre à ma demande.

Message édité par Sethenssen le 15-02-2012 à 18:09:56

FORUM HardWare.fr

Programmation

Perl

[Résolu] Sprintf entier & décimal

Sujets relatifs
sprintf et justification à droite	Ecrire un nombre avec un séparateur décimal locale
fonction split sur un entier	[Résolu] Sprintf & Arrondi
Passer d'un entier à des bits	hexa string vers decimal string
[RESOLU]Convertir un nombre entier en decimal si ce nombre est plus...	Tester un entier vide (isEmpty, isNull)?
Comment savoir si dans un tab dechar il y a des entier et des reel ?
Plus de sujets relatifs à : [Résolu] Sprintf entier & décimal

Page générée en 0.050 secondes