Tại sao chương trình này hợp lệ? Tôi đã cố gắng tạo ra một lỗi cú pháp

Tôi đang chạy ActivePerl 5.14.2 của ActiveState trên Windows 7. Tôi muốn tìm hiểu thêm về hook pre-commit Git để phát hiện các chương trình đang được kiểm tra với lỗi cú pháp. (Bằng cách nào đó tôi chỉ xoay sở để thực hiện một cam kết tồi tệ như vậy.) Vì vậy, như một chương trình thử nghiệm, tôi đã ngẫu nhiên ghi lại điều này:

use strict;
use warnings;

Syntax error!

exit 0;

Tuy nhiên, nó biên dịch và thực thi mà không có cảnh báo, và errorlevel bằng 0 khi thoát. Cú pháp hợp lệ này như thế nào?

Perl có một cú pháp gọi là "ký hiệu phương pháp gián tiếp". Nó cho phép

Foo->new($bar)

được viết là

new Foo $bar

Vậy điều đó có nghĩa là

Syntax error ! exit 0;

giống như

error->Syntax(! exit 0);

hoặc là

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

Đây không chỉ là cú pháp hợp lệ, nó không gây ra lỗi thời gian chạy vì điều đầu tiên được thực hiện là exit(0).

Tôi không biết tại sao, nhưng đây là những gì Perl làm cho nó:

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

Có vẻ như trình phân tích cú pháp nghĩ rằng bạn đang gọi phương thức Syntaxtrên error-object ... Thật kỳ lạ!

Lý do bạn không gặp lỗi là mã được thực thi đầu tiên là

exit(0);

Bởi vì bạn không có dấu chấm phẩy trên dòng đầu tiên:

Syntax error!

Trình biên dịch sẽ đoán (không chính xác) rằng đây là một lệnh gọi chương trình con với một nottoán tử được !ném vào. Sau đó, nó sẽ thực thi các đối số cho chương trình con này exit(0), lúc đó, chương trình sẽ thoát ra và đặt errorlevel thành 0. Không có gì khác được thực thi , vì vậy không có lỗi thời gian chạy được báo cáo.

Bạn sẽ nhận thấy rằng nếu bạn thay đổi exit(0)thành một cái gì đó giống như print "Hello world!"bạn bị lỗi:

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

và mức độ lỗi của bạn sẽ được đặt:

> echo %errorlevel%
255

Như đã lưu ý ở trên, điều này được gây ra bởi ký hiệu gọi phương thức gián tiếp. Bạn có thể cảnh báo về điều này:

use strict;
use warnings;
no indirect;

Syntax error!

exit 0;

Sản xuất:

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

Điều này đòi hỏi mô-đun CPAN gián tiếp .

Bạn cũng có thể sử dụng no indirect "fatal";để khiến chương trình bị chết (đây là những gì tôi làm)

Hãy thử Perl 6 , nó dường như đáp ứng mong đợi của bạn dễ dàng hơn:

===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

Trong bài báo này , chúng tôi hướng đến việc trả lời một vấn đề mở từ lâu trong cộng đồng ngôn ngữ lập trình: có thể bôi sơn lên tường mà không tạo ra Perl hợp lệ không?

TLDR; Khó khăn