# 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";
Crear cuenta
Comentarios sobre la versión: Versión 1 (0)
No hay comentarios