Re^2: check if 2 values are equal

[clinton]

I think you can do away with the third condition of ($val1 == $val2).

First, the eq should catch differences between numbers equally well as the ==. See Comparing values.

Secondly, the == would fail (under strict) if one of the values were a string.

For eq to work for numbers, you need to know that the values are being represented internally as numbers, for instance:

  $a = 1000;
  $b = 1e3;
  print $a eq $b ? 1 : 0;
  > 1
  $b = "1e3";
  print $a eq $b ? 1 : 0;
  > 0
  $b=$b+0;
  print $a eq $b ? 1 : 0;
  > 1

[Corion]

My solution is wrong, but for different reasons. eq cannot replace ==:

$a = "01000";
$b = 1000;

printf "\$a eq \$b : %s\n", $a eq $b;
printf "\$a == \$b : %s\n", $a == $b;

use strict; has no bearing on comparisons. What you are thinking of is use warnings;, which will warn about non-numeric values being compared with ==.

[clinton]

Re use warnings rather than use strict - thanks for the correction.

Likewise, you are right about the "0100" not being equal to 100, which is what I meant about being sure that the values are represented internally as numbers.

So if you said:

 $a = "01000";
 $b = 1000;
 print $a eq $b ? 1 : 0;
 > 0
 $a=$a+0;
 print $a eq $b ? 1 : 0;
 > 1

[Happy-the-monk]

I think you can do away with the third condition of ($val1 == $val2).

Tricky one. I thought the same at first.
But think of 0 and 0.0 or 0E0 - all numerically equal, but not sting equal.
Same goes for 1.1 and 1.10 and of course, there's more to think about.

Cheers, Sören