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

如果发出编译警告,我希望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.我希望能够检测到发出了编译警告 – 最好是设置退出状态.

解决方法

在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变量才为真.

相关文章

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架(巧的是 PerlBuzz 最近也有一篇相关...
bless有两个参数:对象的引用、类的名称。 类的名称是一个字符串,代表了类的类型信息,这是理解bless的...
gb2312转Utf的方法: use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8...
  perl 计算硬盘利用率, 以%来查看硬盘资源是否存在IO消耗cpu资源情况; 部份代码参考了iostat源码;...
1 简单变量 Perl 的 Hello World 是怎么写的呢?请看下面的程序: #!/usr/bin/perl print "Hello W...
本文介绍Perl的Perl的简单语法,包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作,...