perl对数字的处理

charmkid

我写了一个程序，但是相减之后的结果跟预想的相差很大。
程序如下：
#!/usr/bin/perl -w

$t1=0.123123001;
$t2=0.123123002;

open (MYFILE, ">test.out");

for ($i=0;$i<1000;$i++)

{ $t=$t2-$t1;
  print MYFILE "$t\n";
  $t1=$t1+0.000000001;
  $t2=$t2+0.000000001;

  }
close MYFILE;

charmkid

返回值不是0.000000001

兰花仙子

原帖由 charmkid 于 2009-12-18 13:59 发表
返回值不是0.000000001

所有语言的float处理都有问题~

兰花仙子

>> 98.4 + 0.1 + 0.1 < 98.6
# => false
>> 98.3 + 0.1 + 0.1 + 0.1 < 98.6
# => true

charmkid

我最后的目标是用$t与1e-9相比较，用if语句来控制，这样的话，如何才能实现呢？

兰花仙子

try this && cheers~
http://search.cpan.org/~tels/Mat ... ib/Math/BigFloat.pm

perlw01f

把 $t 放大 1e9倍