[Perl] imprimir decimales

[Gunnar Wolf]

Sergi - dijo [Mon, Nov 21, 2005 at 12:56:24PM +0100]:
> ¿Como hago para imrimir solo 2 decimales del resulatdo
> del calculo de una operación ?
> 
> Es que me saca 23343556677 por (ejemplo) donde yo solo
> quiero 233

Como siempre, hay más de una manera de hacerlo (TIMTOWTDI) ;-)

El mejor rendimiento lo vas a sacar de sprintf o printf:

$var = sprintf('%.2f', $var); # te deja en $var la variable truncada
printf('%.2f', $var); # imprime el valor truncado

Claro que las expresiones regulares son también una manera:

$var =~ /^(.*\.\d\d)/; # Encuentra el patrón especificado
print $1; # Te lo imprime

O muchas otras más :)

Saludos,

-- 
Gunnar Wolf - gwolf en gwolf.org - (+52-55)1451-2244 / 5623-0154
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF