Help for this page

Select Code to Download


  1. or download this
    perl -e '$a = "-4.84900000E+001"; $a += 0; $b = -48.49; print "EQ\n" i
+f ($a == $b); print "$a\n$b\n";'
  2. or download this
    EQ
-48.49
-48.49
  3. or download this
    perl -e '$a = "-4.84800000E+001"; $a += 0; $b = -48.48; print "EQ\n" i
+f ($a == $b); print "$a\n$b\n";'
  4. or download this
    -48.48
-48.48
  5. or download this
    perl -v
This is perl 5, version 22, subversion 2 (v5.22.2) built for x86_64-li
+nux-thread-multi
(with 33 registered patches, see perl -V for more detail)