perl - perl用 “==”比较字符串

Question

在perl中，应该将两个字符串与“eq”或“ne”等进行比较。

令我惊讶的是，以下代码片段将显示"is"。

$str = "aJohn";
$x = substr($str, 1);
if ($x == "John") {
    print "yes\n";
}

我的perl在Ubuntu上具有v5.18.4版本。

是否存在两个字符串上的“==”与“eq”产生不同的结果的情况？
谢谢。

Answer 1

"foo" == "bar"为true。 "foo" eq "bar"为假。

这样做的原因:==是数字比较。 "foo"和"bar"都在数值上等于0(就像"17foo"数值上等于17一样)；自0 == 0以来，是"foo" == "bar"。这通常不是您要查找的操作。