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

Poner puntos separadores a una cifra grande

Publicado el 13 de Febrero del 2002 por Guillermo Bt (2 códigos)

14.613 visualizaciones desde el 13 de Febrero del 2002

3 maneras de colocar los puntos separadores de miles a una cifra.

Publicado el 13 de Febrero del 2002

14.614 visualizaciones desde el 13 de Febrero del 2002

# 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";

No hay comentarios

http://lwp-l.com/s90

Descargar lista noticias