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";
Artículos relacionados:
- Login con Microsoft Live OAuth Connect
- Snippet – Calcular la letra del NIF
- mlens Plugin jQuery de efecto lupa para imágenes
- Reduce el tamaño de imágenes PNG con TinyPNG
- Códigos QR