🚀 go-pugleaf

Hola

In article <agpdui$h9f$1@localhost.localhost>, isues wrote:
> Wuenas a todos los mundos>
> vereis mi problema surge cuando quiero controlar los decimales con perl.
> 
> dada la expresion>
> 
> $num1 = 390;
> $num2 = 1.07:
> 
> $resultado = ($num1 / $num2);

Cambia esto por:

$resultado = sprintf ("%.2f", ($num1 / $num2));

y si haces un:

printf ("%f\n", $resultado);

te saldr� algo como esto: "364.490000";

y si quieres que salga sin los ceros pones en el printf un "%.2f".

Esto es si quieres dos decimales con el redondeo, para coger simplemente
los dos decimales sin redond�o, puedes poner:

$resultado = ($num1 / $num2);
$resultado =~ s/(\d.*\.)(\d{2}).*/\1\2/;

con lo que "printf ("%f\n", $resultado)", imprimir�a "364.480000".

espero que te sirva.B

> #el resultado 364.485981308411, claro que yo solo necesito dos decimales,
> y no se ni por donde pillarlo, se que se resuelve usando regex y match.
> Debo de mirarlo mucho mas aun, pero si alguen de vosotros, pudiese
> resolvermelo, puesto que lo hace todos los dias y se lo sabe de memoria,
> me vendria muy bien. Ahora mismo estoy muy ocupado con otras cosillas y
> esto es un detalle que me bendria muy bien resolver.
> 
> Muchas gracias por leerme, como yo a vosotros.
> 
> PD.prometo estudiar mas los regex.(son fascinantes)

saludos.