my $a = 243300;
my $b = 3000;
my $c = 81.10;
if (($a - $b * $c) != 0) {
warn "delta is " . ($a - $b * $c);
} else {
print "OK\n";
}
结果产生的差异很小:
Mac: ~ # perl f.pl
delta is 2.91038304567337e-11 at f.pl line 6.
我可以通过与0.01进行比较来解决,但是如何避免这样的问题以及如何产生很小的差异?