APM: Perl zero not being zero, but 7e-12
Wayne Walker
wwalker at bybent.com
Mon Sep 12 22:47:22 PDT 2005
Number::Tolerant seems to be one way, but YECH.
On Mon, Sep 12, 2005 at 10:46:23AM -0500, David Bluestein II wrote:
> Okay, I've seen this before and have a question how to avoid it.
>
> I take two variables:
>
> $a= 38071.63;
> $b = $i + $j; # Where $i + $j => 38071.63
>
> print "$a : $b"; # results in 38071.63 : 38071.63
>
> Yet if I do:
>
> if ($a == $b) {
> print "Equal";
> } else {
> print "Not equal";
> }
>
> I get a "Not equal".
>
> If I subtract ($b-$a) the result is 7.27595761418343e-12. How do I get
> Perl to ignore this "noise" which comes from someplace?
>
> David
>
> -----------------------------------------------------------------------
> David H. Bluestein II
> President & Lead Developer dbii at interaction.net
> ii, inc.
> http://www.interaction.net
> -- Specializing in Interactive, Database Driven Websites --
>
> _______________________________________________
> Austin mailing list
> Austin at pm.org
> http://mail.pm.org/mailman/listinfo/austin
--
Wayne Walker
wwalker at bybent.com Do you use Linux?!
http://www.bybent.com Get Counted! http://counter.li.org/
Perl - http://www.perl.org/ Perl User Groups - http://www.pm.org/
Jabber: wwalker at jabber.gnumber.com AIM: lwwalkerbybent
IRC: wwalker on freenode.net
More information about the Austin
mailing list