Foro - Perl en Español

Creo que es algo absurdo (como mi nivel de Perl) pero el siguiente código ¿por qué "dispara" números de este tipo: 8.00000000002417e+15 cuando la longitud de los dígitos es 16 y cuando es menor lo hace correctamente?

El bucle es solo a modo de ejemplo:



Necesitaría que la salida fuera con la longitud correcta para mi propósito.

No sé si influye el SO pero estoy en Ubuntu con el intérprete 5.10.0.

Saludos.

MiG.G

Podrías intentar esto:



y te dará números de este estilo:

Gracias, la verdad es que mejora bastante, pero ¿cómo podría quitar la parte decimal?

Saludos.

MiG.G

Bienvenido a los foros de Perl en Español, hreyes.

Perl es un poco especial en el trabajo con números... solo hay que leer perlnumber o bignum.

A veces hace cosas raras...

En mi máquina, que es un 64 bits, no tengo problemas para representar números de hasta 19 dígitos:


Aquí, solo hacemos la operación matemática de incrementar. En cuanto superamos el límite de 2**64-1, lo convierte a punto flotante. Lo mismo si hubiera realizado cualquier otra operación matemática, como por ejemplo,

Deberíamos tener la misma salida, pero no es así: la salida es solo de enteros si es de menos de 16 dígitos.

La solución, de momento, es la que te comenta hreyes. Con printf o sprintf y con "%.0f" sacamos las cifras sin la parte decimal.

Si necesitas manejar cifras más grandes (pero muy, muy, muy grandes), puedes usar bignum, que a su vez cargará Math::BigFloat y Math::BigInt. Serán los cálculos un poco más lentos, pero podrás manejar números muy largos.

Muchas gracias, explorer. Con bignum va perfecto.

Saludos.

MiG.G

Me surge un nuevo problema relacionado. bignum me permite usar números muy grandes pero a costa de una bajada de rendimiento terrible en el manejo de estos. El script básicamente hace un bucle dependiendo de unos valores de entrada y mediante unas condiciones escribe su salida en archivos, y necesito fluidez por encima de todo.

Valores por encima de longitud 16 es poco probable que se usen, entonces, la idea era cargar el módulo bignum si realmente lo necesito, pero si meto el use bignum en un if() que compruebe la longitud del número (esto fuera del bucle antes de empezar los cálculos) dentro de la función que hace todo esto, no funciona. En la ayuda de bignum me dice que hay que cargarlo al principio del script. la pregunta es ¿se puede cargar un módulo justo antes de usarlo, si realmente lo necesito?

Saludos.

MiG.G

Si no van a superar los 16 dígitos, puedes hacer lo que se te ha comentado antes: trabajas con el número de forma normal, y a la hora de sacarlo en pantalla, usas el printf con el formato "%.0f".

En cuanto a la carga de módulos de forma condicional, puedes usar require() en lugar de use(). La diferencia es en el momento de ejecutarse estas instrucciones. Uno será en tiempo de ejecución y el otro, en el de compilación.

Gracias, explorer, por tu tiempo. He estado leyendo algo sobre require y use, y en principio debería funcionar con require, pero solo funciona con use.

Este bucle (a modo de ejemplo):

Sigue "disparando" números en notación científica, y si cambio require por use funciona perfecto. La idea, como dije en mensajes anteriores, es meter la carga del módulo en un if(), de tal modo que "si longitud > 15, carga módulo".

A ver, explorer, si se te ocurre algo, que ando muy pegao con esto.

Saludos y mil graciassss.

MiG.G

Pero, ¿no lo consigues con el printf "%.0f"?

Actualización: he probado ese bucle en mi ordenador y con el Perl v5.10 sigue saliendo bien.

Si le meto una variación, con una operación matemática que le obligue a pasar el número a punto flotante, entonces sí que sale en notación científica. Pero entonces cambio print() por printf("%.0f\n", $i) y sale perfecto.


Actualización 2: He construido esto, que parece que funciona:

Si el número grande supera las 16 cifras o contiene una 'e' (notación científica), cargamos el módulo y lo pasamos a objeto Math::BigInt.

A propósito, en la documentación de Math::BigInt comentan que existe la versión con librería en C, para obtener mayor velocidad, instalando el módulo Math::BigInt::GMP.

FluiD escribiste:El script básicamente hace un bucle dependiendo de unos valores de entrada y mediante unas condiciones escribe su salida en archivos, y necesito fluidez por encima de todo.

¿No puedes poner un ejemplo de lo que quieres hacer?