如果perl -cw发出警告,则设置退出状态

Question

如果发出编译警告,我希望perl -cw ...返回非零退出状态.

例如假设a.pm是文件:

use warnings;
asd;

然后perl -cw a.pm报道:

Unquoted string "asd" may clash ...
Useless use of a constant in void context ...
a.pm syntax OK

并且退出状态设置为0.我希望能够检测到发出了编译警告 - 最好是设置退出状态.

Answer 1

在BEGIN块中设置警告处理程序(靠近脚本顶部,因此在可能触发编译时警告的代码之前解析此块),并调整块中的退出状态.ENDCHECK

use strict;
use warnings;
my $warnings;
BEGIN {
    $SIG{__WARN__} = sub { $warnings++; CORE::warn @_ }
}
$used::only::once = 42;
CHECK {
    if ($^C && $warnings > 0) {
        exit $warnings;
    }
}

$^C当且仅当您perl使用该-c选项调用时,该变量才为真.

Answer 2

据我所知,这是不可能的.毕竟,他们只是建议不严格(没有双关语意)错误.但是,反过来,如果有助于实现目标,则可以在运行时向致命错误发出警告.

$ perl -M'warnings FATAL=>q(all)' -cw a.pm ; echo $?
Unquoted string "asd" may clash with future reserved word at a.pm line 2.
255