Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Compare the first four decimal places
sub eqfloat4 {
   return sprintf("%.4f", shift) eq sprintf("%.4f", shift);
}
if (eqfloat4 1.23455, 1.23456) {
    print "Numbers are equal to four decimal places.";
}