在Perl中检查字符串是否为空的正确方法是什么？

我一直在使用此代码来检查字符串是否为空：

if ($str == "")
{
  // ...
}

不等于运算符也一样...

if ($str != "")
{
  // ...
}

这似乎可行（我认为），但我不确定这是否正确，或者是否存在任何无法预见的缺点。只是有些不对劲。

对于Perl中的字符串比较，请使用eq或ne：

if ($str eq "")
{
  // ...
}

在==与!=运营商的数字比较操作符。在比较它们之前，它们将尝试将两个操作数都转换为整数。

有关更多信息，请参见perlop手册页。

1. 由于将字符串存储在Perl中的方式，优化了字符串的长度。
   if (length $str)是检查字符串是否为非空的好方法。

2. 如果您处在尚未防御的情况下undef，那么不会发出警告的“非空”总称是if (defined $str and length $str)。

您可能要使用“ eq”而不是“ ==“。如果您担心某些极端情况，则可能还需要检查未定义的情况：

if (not defined $str) {

# this variable is undefined

}

正如几个人已经提到的，eq这里是正确的运算符。

如果您use warnings;使用脚本，则会收到有关此警告（以及许多其他有用的信息）；我也建议use strict;。

在Perl中，除了使用CPAN之外，“正确”的方法无所不包。

无论如何，这些都是数字运算符，您应该使用

if($foo eq "")

要么

if(length($foo) == 0)

要检查空字符串，您还可以执行以下操作

if (!defined $val || $val eq '')
{
    # empty
}