[Perl]-Formatage de nombres

Salut,

je ne suis pas sûr d'avoir compris ta demande.

Ton exemple c'est ce que tu veux obtenir?
Plutôt donne ce que tu as en entrée et ce que tu veux obtenir.Merci

lami20j

Salut,

Extrait de : http://www.ftls.org/fr/initiation/perl/index9.shtml

1. le format d'affichage
    Cette partie permet de connaître la façon dont vont être affichées les données (l'endroit, la manière, la taille ...) La taille est définie par le nombre de signes présents après le signe @ ou ^

    @>>>> indiquera que la valeur sera affichée sur 4 caractères justifiés à droite
    @<<<< même chose mais justifié à gauche
    @|||| même chose mais centré
    @###.## champ numérique avec 2 chiffres après la virgule
    @* champ multiligne, on ne s'occupe pas de la taille du champ à afficher
    ^>>> affichera un champ sur plusieurs lignes de 3 caractères lignes vides incluses
    ~ ^>>> même chose mais sans les lignes vides
    ~~ ^>>> même chose mais répétera l'affichage jusqu'à trouver une ligne vide 

Je connais pas Perl (mais c'est promis "lami20j" je m'y mets dès que je peux), donc j'espère que c'est ça qui se rapporte à ton cas.
;-))

Re-

Bon, sachant que Perl est un dérivé de Awk, voilà comment que ça se passe sous Awk :

[jp@MDK tmpfs]$ cat fich.txt

12,458475
1,475962
100,0000

[jp@MDK tmpfs]$ while read i; do echo "$i" | awk 'END { printf " %6.2f %s\n",$1,"% de save full" }';done <fich.txt

  12,46 % de save full
   1,48 % de save full
 100,00 % de save full

[jp@MDK tmpfs]$

Si ça peut t'aider... ;-))

Re,

Voilà une aproche.

#! /usr/bin/perl 
#
use warnings;use strict;

while (<DATA>){
	$_ = substr( " " x 20 . sprintf("%3.2f",$_), -6);
# la seule chose qui reste à faire c'est de calculer 
# la longueur de la partie entière et prendre le maximum 
# pour obtenir exact ce que tu veux.
# Ici j'ai mis 6 puisque je savais ce que tu veux
	print "$_ % de save full\n";
}
__END__
12.458475 
1.475962
100.0000

Le résultat

lami20j@debian:~/bin/my_deb_perl$ perl ccm_blux_format.pl
 12.46 % de save full
  1.48 % de save full
100.00 % de save full

Ou même

#! /usr/bin/perl 
#
use warnings;use strict;

while (<DATA>){
  printf "%6.2f %% de save full\n";
}
__END__
12.458475 
1.475962
100.0000

lami20j

Re,

en fait 6 il faut le remplacer avec la longueur de la "chaine" la plus grande

Quand tu mets 3 alors l'alignement c'est par défaut au rapport de taille de chacun.

lami20j

P.S. Je n'ai pas pensé de début à ça (je parle de ma 2ème solution). Je suis parti avec l'idée de faire quelque chose compliqué.
J'avoue que j'ai regarder le script de jipicy ;)
- je n'ai pas vu la fôret à cause d'un arbre =))

Mais lui aussi il est parti pour quelque chose compliqué
perl formatage de nombres#2

Bon ben merci à tous...

J'ai pris le plus simple :

printf(" %6.2f %s",$MMINFO[$i][10],"% de savesets en level full");

Et ça me va bien...:-)

Ma solution:

printf ( "%6s de savesets en level full" , sprintf("%8.2f",$_) );