Discussion :

[flavia]

Bonjour,

Je cherche une expression régulière en perl qui permet de formater un nombre comme suit :

25631 -> 25.631
1234567 -> 1.234.567

En résumé cette expression doit mettre . en regroupant les chiffre par 3 de droite à gauche.


Je vous remercie d'avance.

[Isythiel]

Ce doit être un truc du genre :

Code :

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

1
2
$s = 1234567;
$s =~ s!^(\d{1-3})(\d{3})+!$1\.$2!g;

Si ça ne marche pas, je ne dois pas être loin de la solution ... peut-être un truc à changer autour du $2.

Pour plus d'info, ce lien par exemple.

[djibril]

Pour formatter de façon propre, utilise le module Number::Format.

Code :

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

1
2
3
4
5
use Number::Format;
my $format = new Number::Format(
  -thousands_sep   => '.',
);
print $format->format_number(1234567); # <=== 1.234.567

[flavia]

Pour formatter de façon propre, utilise le module Number::Format.

Code :

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

1
2
3
4
5
use Number::Format;
my $format = new Number::Format(
  -thousands_sep   => '.',
);
print $format->format_number(1234567); # <=== 1.234.567

Je vous remercie tous les 2.

Je dois utiliser une expression régulière, celle que Isythiel m'a indiquée ne fait rien?

Je sais pas qu'est ce qu'il faut modifier dans cette expression pour qu'elle formate bien le nombre?

Merci

[flavia]

C'est j'ai pu le faire comme suit :

Code :

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

1
2
3
 
$myValue =~ s/(\d{6,6})$/\.$1/g;
$myValue =~ s/(\d{3,3})$/\.$1/g;

Comme ça je traite les millier et les millions et ça me suffit pour le moment.

Je vous remercie