在 perllexwarn定义了所有可以设置的警告。
但是这里没有关于如何打印出我当前启用的警告的内容。
例如。:
use strict;
use warnings;
print warnings::enabled->pretty_print(); #fictional...
这怎么可能?例子:
use strict;
use 5.012;
use warnings;
my $aaa;
say "$aaa";
say warnings::enabled("uninitialized") ? "yes" : "no";
以上将输出:Use of uninitialized value $aaa in string at y line 6.
no
因此,“未初始化”警告类别是“设置”,因为它会打印警告,但 warnings::enabled("uninitialized")
不返回 true
.
最佳答案
阅读 perllexwarn
... functions that are useful for module authors. These are used when you want to report a module-specific warning to a calling module has enabled warnings via the "warnings" pragma.
如果我理解正确,这意味着函数(
enabled
, warnif
)仅适用于特定于模块的警告,不适用于标准类别。 (文档中的“has”之前可能缺少“that”。)更新:似乎标准类别也有效,但仅在模块中:
package MY;
use warnings::register;
sub S {
my $x;
print $x, "\t";
print warnings::enabled("uninitialized"),"\n";
}
package main;
use warnings;
MY::S();
no warnings;
MY::S();
关于perl - 如何获取 perl 模块中当前启用的一组警告检查?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11074417/