このプログラムはなぜ有効なのですか？構文エラーを作成しようとしました

私はActiveStateの32ビットActivePerl 5.14.2をWindows 7で実行しています。構文エラーでチェックインされているプログラムを検出するために、Gitのプリコミットフックをいじくり回したいと思いました。（どういうわけか私はなんとかそのような悪いコミットをすることができました。）それで私はテストプログラムとしてこれをランダムに書きました：

use strict;
use warnings;

Syntax error!

exit 0;

ただし、警告なしでコンパイルおよび実行され、終了時のエラーレベルはゼロです。この有効な構文はどうですか？

Perlには、「間接メソッド表記」と呼ばれる構文があります。それはできます

Foo->new($bar)

と書かれる

new Foo $bar

つまり

Syntax error ! exit 0;

と同じです

error->Syntax(! exit 0);

または

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

有効な構文であるだけでなく、最初に実行されるのはであるため、実行時エラーにはなりませんexit(0)。

理由はわかりませんが、Perlがそれを実現する方法は次のとおりです。

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

パーサーは、あなたが-object のメソッドSyntaxを呼び出していると考えているようですerror...本当に奇妙です！

エラーが発生しない理由は、最初に実行されたコードが

exit(0);

最初の行にセミコロンがなかったので：

Syntax error!

コンパイラーは、これが（誤って）notオペレーターが!スローされたサブルーチン呼び出しであると推測します。次に、このサブルーチンへの引数を実行します。このときexit(0)、プログラムは終了し、エラーレベルを0に設定します。それ以外は何も実行されません。なので、実行時エラーは報告されません。

あなたがあなたがあなたのexit(0)ようなものに変更するとprint "Hello world!"エラーが出ることに気づくでしょう：

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

エラーレベルが設定されます：

> echo %errorlevel%
255

上記のように、これは間接メソッド呼び出し表記法が原因です。あなたはこれに警告することができます：

use strict;
use warnings;
no indirect;

Syntax error!

exit 0;

生成する：

Indirect call of method "Syntax" on object "error" at - line 5.

これには、間接CPANモジュールが必要です。

を使用no indirect "fatal";してプログラムを終了させることもできます（これは私が行うことです）

Perl 6を試してください、それはあなたの期待をより簡単に満たすようです：

===SORRY!=== Error while compiling synerror.p6
Negation metaoperator not followed by valid infix
at synerror.p6:1
------> Syntax error!⏏<EOL>
    expecting any of:
        infix
        infix stopper

このペーパーでは、プログラミング言語コミュニティにおける長年のオープンな問題に答えることを目的としています。有効なPerlを作成せずに壁にペンキを塗ることは可能ですか？

TLDR; ほとんどない