为什么这个程序是有效的？我试图创建一个语法错误

Question

我在Windows 7上运行的是ActiveState的32位ActivePerl 5.14.2。我想用Git预提交钩子来检测被检入的程序是否有语法错误。(不知何故，我只是设法做了这样一个糟糕的promise。)所以作为一个测试程序，我随机记下了这个:

use strict;
use warnings;

Syntax error!

exit 0;

但是，它编译和执行时没有警告，退出时errorlevel为零。这是怎样的有效语法？

Answer 1

您没有得到错误的原因是第一个执行的代码是

exit(0);

因为您在第一行没有分号：

Syntax error!

编译器将（错误地）猜测这是一个带有not运算符！的子例程调用。然后它将执行此子例程的参数，恰好是exout（0），此时程序退出并将错误级别设置为0。没有执行其他操作，因此不会报告更多运行时错误。

您会注意到，如果您将< code>exit(0)更改为类似于< code > print“Hello world！”您得到一个错误:

Can't locate object method "Syntax" via package "error" ...

并且将设置您的错误级别：

> echo %errorlevel%
255

Answer 2

我不知道为什么，但这就是Perl对它的看法：

perl -MO=Deparse -w yuck
BEGIN { $^W = 1; }
use warnings;
use strict 'refs';
'error'->Syntax(!exit(0));
yuck syntax OK

似乎解析器认为您在对< code > error -对象调用方法< code>Syntax...确实奇怪！

Answer 3

Perl有一个名为“间接方法表示法”的语法。它允许

Foo->new($bar)

写为

new Foo $bar

这意味着

Syntax error ! exit 0;

与

error->Syntax(! exit 0);

或

error->Syntax(!exit(0));

它不仅是有效的语法，而且不会导致运行时错误，因为执行的第一件事是export（0）。