比较Perl中的多个数值

Question

假设我有一些变量,$x, $y, $z, $a, $b, $c并且我想确保它们都具有相同的值.

我可以测试类似的东西,if ($x == $y == $z == $a == $b == $c)以避免多个二进制比较,即(if $x == $y and $x == $z and $y == $z ...)？

有什么方法可以做一切简短的测试比较吗？

Answer 1

if ( grep $x != $_, $y, $z, $a, $b, $c ) {
    print "not all the same\n";
}