Compare the first four decimal places : Comparison Operators « Language Basics « Perl






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.";
}

   
    
    
  








Related examples in the same category

1.Compare integer value
2.Compare string value
3.Comparing Numbers for Equality
4.Comparing Numbers for Inequality
5.Equality Operators and Numeric Values
6.Equality Operators and String Values
7.If not equal
8.Integer-comparison operators.
9.Not equals operator: ne
10.Perl's operators for numeric comparisons
11.String comparison operator
12.String- and numeric-comparison operators.
13.Use eq to compare strings
14.Using eq in statement
15.Using ne in if statement
16.cmp with or
17.eq, ne, lt, gt operators
18.three-way-comparison becomes cmp.
19.<=> returns 0, -1 , or 1
20.Relational Operators and Numeric Values
21.Comparison Operators listing
22.Don't use == when you should use eq!
23.Relational Operators and String Values
24.Relational Operators demo
25.The numeric comparison operator evaluates its operands