我在Windows7上运行的是ActiveState的32位ActivePerl 5.14.2,我想用一个Git预提交钩子来检测存在语法错误的程序。(不知何故,我只是设法完成了如此糟糕的提交。)因此,作为一个测试程序,我随机写了以下内容:
use strict;
use warnings;
Syntax error!
exit 0;但是,它在编译和执行时没有任何警告,并且在退出时errorlevel为零。这是怎样的有效语法呢?
发布于 2012-07-28 04:26:55
我不知道为什么,但这就是Perl对它的理解:
perl -MO=Deparse -w yuck
BEGIN { $^W = 1; }
use warnings;
use strict 'refs';
'error'->Syntax(!exit(0));
yuck syntax OK解析器似乎认为您正在调用error-object上的Syntax方法...确实很奇怪!
https://stackoverflow.com/questions/11695110
复制相似问题