Snippet – 3 maneras de poner puntos separadores de millar

Publicado el 05 febrero 2013 por Biriicom @biriiCom

Snippet en código Perl que muestra 3 maneras de poner puntos separadores de millar en una cifra grande.

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