Código de Perl - Poner puntos separadores a una cifra grande

<<>>

Poner puntos separadores a una cifra grandegráfica de visualizaciones


Perl

Publicado el 13 de Febrero del 2002 por Guillermo BT
13.601 visualizaciones desde el 13 de Febrero del 2002. Una media de 21 por semana
3 maneras de colocar los puntos separadores de miles a una cifra.

Versión 1

Publicado el 13 de Febrero del 2002gráfica de visualizaciones de la versión: Versión 1
13.602 visualizaciones desde el 13 de Febrero del 2002. Una media de 21 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
# Versión 1:
# ---------------
#Pasar el numero como parametro en la linea de comandos o ejecutar sin parametros para ver ejemplo.
 
# Coloca los puntos separadores a una cifra 
# facilitar su lectura.
$numero = shift || "987586929387234";
$numero =~ s{(\d\d\d)(?=\d)(?!\d*\.)}{$1.}g;
print "$numero\n";
 
 
# Versión 2: (más eficiente)
# -------------------------------
 
$numero = shift || "987586929387234";
1 while ( $numero=~ s/^(-?\d+)(\d{3})/$1.$2/ );
print "$numero\n";
 
 
# Versión 3: Usando el módulo de CPAN Number::Format 
# -------------------------------------------------------
 
use Number::Format;
$numero = shift || "987586929387234";
$nn = new Number::Format(-decimal_point => ',' , -thousands_sep => '.');
$numero = $nn->format_number($numero);
print "$numero\n";



Comentarios sobre la versión: Versión 1 (0)


No hay comentarios
 

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s90