in reply to What causes NaN when using bignum

$ perl
use bignum;
$number=330978816.3082480433473810957254665863937;
$number=(int(((log($number)/log(10))*10)+0.5))/10;
print"$number\n";
__END__
NaN

$ perldoc -V
Perldoc v3.15_02, under perl v5.012002 for MSWin32

[download]

Replies are listed 'Best First'.
Re^2: What causes NaN when using bignum
by Anonymous Monk on May 25, 2011 at 17:18 UTC 
    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]
[reply]
[d/l]

In Section Seekers of Perl Wisdom