Foro - Perl en Español

Esa pregunta ya se hizo por aquí, me parece... hace cosa de dos años...

No lo he encontrado, pero recuerdo que era hacer un bucle a lo largo de la longitud de la cadena de derecha a izquierda e ir insertando el carácter '.' cada 3 caracteres.

Lo de los decimales es luego un simple print.

Vamos, en 4 líneas lo haces...

¡Ánimo!

Pues si... y no...

Sí que existe una forma de hacer lo que quieres... mejor dicho, hay más de una, pero de niveles distintos a los de una solución informática basada en un algoritmo.

Verás, el tema de la separación de los miles es algo que desde hace unos años está resuelto porque, según el país donde vivas, esos separadores:
* No existirán (o no están permitidos)
* Existen, y son los que concuerdan con tu salida desea
* Existen, pero no son los que quieres.

En los sistemas operativos actuales, las diferencias entre idiomas se llama 'localizaciones'. Y el ordenador 'sabe' en qué localización estás usando el sistema de las variables de entorno.

Así, en Linux (un sistema compatible con POSIX), yo tengo mis variables de entorno que indican en qué localización estoy:

Código: Seleccionar todo

explorer@casa:~/Documents/Software/Perl> locale
LANG=es_ES@euro
LC_CTYPE="es_ES@euro"
LC_NUMERIC="es_ES@euro"
LC_TIME="es_ES@euro"
LC_COLLATE="es_ES@euro"
LC_MONETARY="es_ES@euro"
LC_MESSAGES="es_ES@euro"
LC_PAPER="es_ES@euro"
LC_NAME="es_ES@euro"
LC_ADDRESS="es_ES@euro"
LC_TELEPHONE="es_ES@euro"
LC_MEASUREMENT="es_ES@euro"
LC_IDENTIFICATION="es_ES@euro"
LC_ALL=

Mi localización indica que es española, variante España, y que la codificación de los caracteres será compatible con el carácter del Euro (iso-8859-15).

Bien, pero analizando esta localización, nos damos cuenta de que, en cuestión de separación de miles, no está definida la agrupación de dígitos:

Código: Seleccionar todo

explorer@casa:~/Documents/Software/Perl> LC_NUMERIC=es_ES printf "%'.2f\n" 1234567809,34
1234567809,34

cosa que no sería lo mismo si yo fuera danés:

Código: Seleccionar todo

explorer@casa:~/Documents/Software/Perl> LC_NUMERIC=da_DK printf "%'.2f\n" 1234567809,34
1.234.567.809,34

o norteamericano:

Código: Seleccionar todo

explorer@casa:~/Documents/Software/Perl> LC_NUMERIC=en_US printf "%'.2f\n" 1234567809,34
1,234,567,809.34

Además, fíjate que he usado LC_NUMERIC para cambiar mi localización, porque el comando printf no distingue de si queremos sacar un número o una cantidad monetaria. La localización del dinero está indicada en LC_MONETARY y deberíamos usar la función strfmon() del C para hacer las conversiones de dinero a cadena de caracteres.

Bueno, todo esto funciona en las librerías actuales de C para los sistemas operativos modernos (excepto Microsoft, que prefiere ser incompatible, como siempre).

Pero... en el caso de Perl tenemos un 'ligero' problema: no sabe usar el flag 'radical' de conversión de miles que posee la función printf() del sistema, por lo que un programa en Perl como este:
sacará en pantalla algo como esto:

Código: Seleccionar todo

%'.2f

Vamos, que no.

Pero bueno, no todo está perdido. Puede que print, printf o sprintf no trabajen bien con la única función que nos haría falta para resolver tu problema, pero Perl tiene otras posibilidades: podemos hacer el trabajo de ese flag nosotros mismos; al fin y al cabo... todo consiste en agrupar los dígitos de salida junto con los caracteres de separación de miles.

Todo esto está documentado en la parte que comenta la función localeconv(). Incluso viene un ejemplo de generación de los números con agrupación de miles. Pero... ese ejemplo no funciona muy bien...

El ejemplo lee la configuración actual de la separación de miles en números:
salida:

Código: Seleccionar todo

$VAR1 = {
          'n_sep_by_space' => 0,
          'thousands_sep' => ',',
          'p_sep_by_space' => 0,
          'grouping' => '',
          'p_cs_precedes' => 1,
          'int_frac_digits' => 2,
          'mon_grouping' => '',
          'n_sign_posn' => 1,
          'currency_symbol' => '$',
          'int_curr_symbol' => 'USD ',
          'negative_sign' => '-',
          'p_sign_posn' => 1,
          'frac_digits' => 2,
          'n_cs_precedes' => 1,
          'decimal_point' => '.',
          'mon_thousands_sep' => ',',
          'mon_decimal_point' => '.'
        };


en el caso de ser norteamericano. Ves que la separación de miles tanto en números como en dinero es el carácter ',', por lo que, correctamente, la expresión regular que sigue es capaz de insertar ese separador entre la agrupación de caracteres (que es (3, 3) aunque no se vea en la salida de grouping y mon_grouping).

Bueno, el problema es que en Español, el carácter de separación de miles es el '.', y ya sabemos que ese carácter tiene un significado especial dentro de las expresiones regulares. Con setlocale(LC_ALL, "es_ES\@euro");, sale:

Código: Seleccionar todo

$VAR1 = {
          'n_sep_by_space' => 1,
          'currency_symbol' => '€',
          'p_sign_posn' => 1,
          'negative_sign' => '-',
          'int_curr_symbol' => 'EUR ',
          'frac_digits' => 2,
          'p_sep_by_space' => 1,
          'n_cs_precedes' => 1,
          'p_cs_precedes' => 1,
          'decimal_point' => ',',
          'mon_grouping' => '',
          'int_frac_digits' => 2,
          'n_sign_posn' => 1,
          'mon_thousands_sep' => '.',
          'mon_decimal_point' => ','
        };

Por ello, no podemos sin más meterlo dentro de ella. Hay que escaparlo. Con la ayuda de los indicadores de escapado de caracteres \Q y \E, será fácil hacerlo.

En resumen, el programa Perl que hace la presentación de cifras en formato monetario según la localización actual del sistema en que se ejecuta debería ser este (miles.pl):

Con una entrada como: miles.pl 1234567890, la salida es 1.234.567.890.

El funcionamiento de la expresión regular es esta:
* por defecto, Perl intenta hacer coincidencias con la parte más a la derecha del patrón, por lo que se podría decir que estamos primero mirando de derecha a izquierda
* y a la derecha hay dos opciones: o fin de de línea ($) o un carácter anterior de $separador_de_miles. Aquí estaba el problema comentado antes, por lo que necesitamos 'escapar' los posibles caracteres especiales, con \Q y \E
* delante de estos esperamos una agrupación de dígitos (\d{$agrupacion[0]})
* precedidos a su vez por al menos un dígito más (\d).
* la conversión es introducir un nuevo separador de miles delante de la agrupación encontrada.

Hay una línea comentada, la del setlocale, que, de usarse, nos permitirá mostrar distintas presentaciones según la localización que elijamos, independientemente de la del sistema. Si usamos setlocale(LC_ALL, "en_US");, para el ejemplo anterior saldrá 1,234,567,890.

Como ves, no hay una función (al menos ahora) que resuelva el problema, pero con un par de líneas lo tienes. Básicamente, el while hace toda la conversión por lo que es casi lo único que necesitas.