如何让 Perl 在引用 undef 值时停止？

Question

当您引用 undef 值时，如何让 Perl 停止并给出堆栈跟踪，而不仅仅是警告？ 似乎 use strict; 不足以达到此目的。

Answer 1

不用像其他人建议的那样乱七八糟地摆弄%SIG，只需使用Carp::Always 就完成了。

请注意，您只需使用 perl -MCarp::Always 运行脚本即可将模块注入到脚本中，而无需修改源代码。 此外，您可以将 PERL5OPT 环境变量设置为 -MCarp::Always 来加载它，甚至无需更改脚本的调用。 （请参阅 perldoc perlrun。）

Answer 2

包含以下内容：

use Carp ();

然后在源文件的顶部包含以下行中的一行：

local $SIG{__WARN__} = \&Carp::confess;
local $SIG{__WARN__} = \&Carp::cluck;

confess 行将提供堆栈跟踪，cluck 行将提供堆栈跟踪线路更加简洁。

Answer 3

use warnings FATAL => 'uninitialized';

use Carp ();
$SIG{__DIE__} = \&Carp::confess;

第一行使警告变得致命。 当程序终止时，接下来的两个会导致堆栈跟踪。

另请参阅 man 3pm warnings 了解更多详细信息。

Answer 4

引用 undef 值本身不会有问题，但如果您的代码期望它是 undef 以外的值，则可能会导致警告。 （特别是如果您尝试使用该变量作为对象引用）。
您可以在代码中添加一些内容，例如：

use Carp qw();

[....]

Carp::confess '$variableName is undef' unless defined $variableName;

[....]

Answer 5

使这些警告致命的一种方法是为 WARN 虚拟信号安装信号处理程序：

$SIG{__WARN__} = sub { die "Undef value: @_" if $_[0] =~ /undefined/ };

Answer 6

您必须手动执行此操作。 上面的“答案”不起作用！ 只需测试一下：

use strict;
use warnings FATAL => 'uninitialized';
use Carp ();
$SIG{__DIE__} = \&Carp::confess;

my $x = undef; # it would be enough to say my $x;
if (!$x->{test}) {
print "no warnings, no errors\n";
}

您将看到取消引用不会导致任何错误消息或警告。 我不知道有什么办法可以让 Perl 自动检测到 undef 的使用作为无效引用。 我怀疑这是设计使然，因此自动生存可以无缝地进行。