The following code does not work as i would expect. I was wondering if anyone knows why 1.15*100 acts diffrent under int(). My original code is below :

use strict;

my $key = 12345;
my @amn = (3.95,1.15);
my ($s,$s2);

for (@amn) {
  $s += int($_*100);
  $s2 += $_*100;
}

print "Scalar 1 : $s\n";
print "Scalar 2 : $s2\n";
[download]

This prints :

Scalar 1 : 509
Scalar 2 : 510
[download]

This was tested on

• Windows 2000 running ActiveState perl 5.6.1
• Solaris (sparc) 2.8 running perl 5.8.0 and 5.5.3
• RedHat 7.4 running perl 5.6.1

A shorter version of this would be :

perl -e 'print 1.15*100,"\n",int(1.15*100),"\n"'
[download]

I know NV conversion is always open to a fudge-factor, but this seems pretty tame to be effected by that. Any help is appriciated.