Question

在尝试减少一些默认哈希码的过程中，我发现你可以添加到none来生成任何哈希代码，或者生成你要添加的内容。这有什么特别的原因吗？这会改变不同的架构，还是我可以依靠这种能力？

DB<1> print none + 1

DB<2> print 1 + none
1

对于那些好奇的人来说，这就是我使用它的方式

foreach (@someArray) {
    unless ($someHash{$_}++) {
        $someHash{$_} = 1;
    }
}

作为

的缩减

foreach (@someArray) {
    if (exists $someHash{$_}) {
        $someHash{$_}++;
    } else {
        $someHash{$_} = 1;
    }
}

Answer 1

你没有做你认为自己在做的事情。这两个陈述：

print none + 1
print 1 + none

不像你想象的那么简单。因为你关闭了警告，你不知道他们做了什么。让我们在命令提示符下尝试它们，并打开警告（-w开关）：

$ perl -lwe'print none + 1'
Unquoted string "none" may clash with future reserved word at -e line 1.
Name "main::none" used only once: possible typo at -e line 1.
print() on unopened filehandle none at -e line 1.

$ perl -lwe'print 1 + none'
Unquoted string "none" may clash with future reserved word at -e line 1.
Argument "none" isn't numeric in addition (+) at -e line 1.
1

在第一种情况下，作为单词的none被解释为文件句柄，并且print语句失败，因为我们从未打开具有该名称的文件句柄。在第二种情况下，裸字none被解释为一个字符串，由加法运算符+转换为数字，该数字将为零0。

您可以通过为第一种情况提供特定的文件句柄来进一步澄清这一点：

$ perl -lwe'print STDOUT none + 1'
Unquoted string "none" may clash with future reserved word at -e line 1.
Argument "none" isn't numeric in addition (+) at -e line 1.
1

这表明none + 1和1 + none之间没有真正的区别。

如何添加到无效？

1 个答案: