perl - 这是 Perl 的 glob 原型(prototype)的错误吗？

Question

没有什么特别的原因，我在玩 glob 原型(prototype) (*) ，并查看当参数是定义的子例程时它会做什么。

给定以下代码:

sub test (*) {print "[@_]\n"}
sub blah ($) {"blah got @_"}

如果你写 test blah;你得到语法错误 Not enough arguments for main::blah...
如果你写 test blah 1;程序编译并打印 [blah]
如果你写 test blah die;程序编译，打印 [blah]并且不会死。

如果你写 test blah(1);程序编译并打印 [blah got 1]
如果你写 test blah(die);程序编译然后死掉。

最后两个例子显然是“如果它看起来像一个子程序调用它就是一个子程序调用”规则的一个应用。

但是，无括号的示例对我来说似乎是一个错误。因为似乎正在发生的事情是，尽管在全局上下文中，解析器仍然处理 blah作为需要参数的原型(prototype)函数。但是当编译完成时， blah 的参数被完全丢弃，字符串 'blah'而是传递给 test .

这是 test blah die; 的示例构造贯穿 B::Deparse :

$ perl -MO=Deparse,-p -e 'sub test (*) {print "[@_]\n"} sub blah ($) {"blah got @_"} test blah die;'
sub test (*) {
    print("[@_]\n");
}
sub blah ($) {
    "blah got @_";
}
&test('blah');
-e syntax OK

如您所见， die完全从 op-tree 中删除。

所以我的问题是，如果其他人认为这种行为是一个错误？行为是否记录在任何地方？如果它是一个错误，是否值得修复？

Answer 1

Perl 中的原型(prototype)是 bad news .他们被严重破坏了。实际上，它们工作得很好，但是我们普通的大脑无法考虑 Perl 原型(prototype)的全部深度。
他们假设允许您像调用内置函数一样调用用户定义的函数，但是它们的工作方式非常令人困惑。见 Perldoc persub他们如何工作(和不工作)。
从 Perl 函数调用中删除括号已经有一段时间了，我猜在某些情况下，删除多余的括号可以使代码更易于阅读。然而，这个微小的改进还不足以克服原型(prototype)设计的缺陷。
你肯定在看原型(prototype)设计的极限。事实上，你的代码其实很困惑，加上括号会提高它的可读性。是的，我知道这不是你的目的。您的目的是考虑 Perl 原型(prototype)设计，直到您与 Larry Wall 合二为一。我很欣赏你的勇气。我尝试了原型(prototype)设计，直到我哭着跑进卧室，砰地关上门，直到晚饭才出来。我花了多年的心理治疗和酗酒来克服我对 Perl 原型(prototype)设计的经验。即使在今天，每当我看到\@@时，我都会失控地哭泣。 .
Perl 6 应该让一切变得更好。不幸的是，Perl 6 的开发时间比 Duke Nukem Forever 还要久。
有点夸张。 Duke Nukem实际上是在 1997 年宣布的，而 Perl 6 是在 2000 年宣布的，所以 Duke Nukem 实际上在 Perl 6 上大约有三年的时间。但是，Duke Nukem 实际上有一个发布日期(2011 年 6 月)，这比 Perl 6 有更多。
好吧，够牢骚了。您最好查看 Perlmonks网站寻求帮助。这就是 Perl 大师们常去的地方。他们可能会解释你的程序发生的一切，以及为什么它在做完全正确的事情。

David Weintraub

perl -e 'print "Just another second rate Perl hacker\n";'

附录
似乎远比你想知道的关于 Perl 原型(prototype)的一切都已移至 Perl Monks .这篇文章将解释为什么您的原型(prototype)会按预期运行。