Perl 中的字符串与 "eq"和 "=="进行比较

Question

这个问题已经有答案了:

How do I compare two strings in Perl? (7 个回答)

已关闭 5 年前。

我(一个完全的 Perl 新手)正在 if 中进行字符串比较声明:

如果我执行以下操作:

if ($str1 == "taste" && $str2 == "waste") { }

我看到了正确的结果(即，如果条件匹配，它将评估“then” block )。但我看到这些警告:

Argument "taste" isn't numeric in numeric eq (==) at line number x.
Argument "waste" isn't numeric in numeric eq (==) at line number x.

但如果我这样做:

if ($str1 eq "taste" && $str2 eq "waste") { }

即使满足 if 条件，它也不会评估“then” block 。

在这里，$str1是 taste和$str2是 waste .

我应该如何解决这个问题？

Answer 1

首先，eq用于比较字符串； == 用于比较数字。

Even if the "if" condition is satisfied, it doesn't evaluate the "then" block.

我认为你的问题是你的变量不包含你认为它们包含的内容。我认为您的 $str1 或 $str2 包含类似“taste\n”之类的内容。通过在 if 之前打印来检查它们:print "str1='$str1'\n";。

可以使用 chomp($str1); 函数删除尾随换行符。