Perl子例程和if-else块仅评估else块

Question

我是perl的新手，并使用正则表达式。我有一个子例程，该子例程应该表明我们正在寻找具有多个点之一的模式”。”。下一行是使用此子例程检查某些模式中是否存在点。但是我发现我的if / else语句中的if块没有被评估，它只评估else块。

my $hostname1 = "hh.uu";
my $hostname2 = "yyhu";

sub isDotted {
    return 1 if @_  =~ /\./g; return 0;
    }

if (isDotted($hostname1) != isDotted($hostname2))
{ 

    print "Must be equal\n";
}
else {
print "Perfect good to go\n";
}

这段代码打印出“完美无缺”，以及$ hostname2没有点“”的事实。这意味着它应该打印出“必须相等”，但不会评估if块。

*更新：对不起，我进行了更改，此代码应编译

Answer 1

Perl将参数传递给固定名称数组（@_）中的子例程。因此，您必须从该数组中提取参数。通过使用裸数组名称，您可能处于“标量上下文”中，1在这种情况下，perl会将标量上下文中的数组求值为其大小。而且1永远不会匹配/\./。引用数组第一个元素的方法@_是$_[0]。该/g标志也是多余的。因此，尝试将该行更改为此：

    return 1 if $_[0]  =~ /\./; return 0;