Question

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

E.g。假设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块中设置警告处理程序（靠近脚本顶部，因此在可能触发编译时警告的代码之前解析此块），并在~~中调整退出状态END~~ CHECK阻止。

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

当且仅当您使用perl选项调用-c时，$^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

Answer 3

要实现此行为，您可以在第一次警告后使用$SIG{__WARN__}死亡。就像这样：

package warncounter;

use strict;
use warnings;

my $warnings;

BEGIN {
    $SIG{__WARN__} = sub {
        $warnings++;
        CORE::warn(@_);
        exit(255);
    };
}

1;

然后您可以将语法检查作为

运行

perl -Mwarncounter -wc test.pl

然后perl会在第一次警告后立即退出。我的第一个想法是计算警告的数量并在END块中设置退出状态，但在语法检查模式-c END块未被调用。

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

3 个答案: