use bignum;
$number=330978816.3082480433473810957254665863937;
$number=(int(((log($number)/log(10))*10)+0.5))/10;
print"$number\n";
print "$_\n" for %INC;
__END__
NaN
Math/BigInt.pm
C:/perl/5.12.2/lib/Math/BigInt.pm
warnings/register.pm
C:/perl/5.12.2/lib/warnings/register.pm
Exporter/Heavy.pm
C:/perl/5.12.2/lib/Exporter/Heavy.pm
bigint.pm
C:/perl/5.12.2/lib/bigint.pm
vars.pm
C:/perl/5.12.2/lib/vars.pm
strict.pm
C:/perl/5.12.2/lib/strict.pm
Exporter.pm
C:/perl/5.12.2/lib/Exporter.pm
bignum.pm
C:/perl/5.12.2/lib/bignum.pm
constant.pm
C:/perl/5.12.2/lib/constant.pm
Math/BigInt/Calc.pm
C:/perl/5.12.2/lib/Math/BigInt/Calc.pm
warnings.pm
C:/perl/5.12.2/lib/warnings.pm
overload.pm
C:/perl/5.12.2/lib/overload.pm
integer.pm
C:/perl/5.12.2/lib/integer.pm
Math/BigFloat.pm
C:/perl/5.12.2/lib/Math/BigFloat.pm
[download]