http://www.perlmonks.org?node_id=906641


in reply to What causes NaN when using bignum

$ perl -v|grep "This is perl" This is perl, v5.10.1 (*) built for i686-linux-thread-multi $ uname -i -o -r 2.6.9-89.0.2.EL.msdw.1largesmp x86_64 GNU/Linux $ perl -Mbignum -e '$number=330978816.3082480433473810957254665863937; +$number=(int(((log($number)/log(10))*10)+0.5))/10;print"$number\n";' 8.5

--
tune