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

Question

当你引用一个undef值而不仅仅是警告时，你如何让Perl停下来并给出一个堆栈跟踪？ 看来use strict; 不足以达到这个目的。

Answer 1

use warnings FATAL => 'uninitialized';

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

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

Answer 2

而不是use Carp::Always其他人提出的%SIG的混乱，只需use Carp::Always完成。

请注意，只需使用perl -MCarp::Always运行模块就可以将模块注入脚本而无需修改源代码; 此外，您可以将PERL5OPT环境变量设置为-MCarp::Always以便在不更改脚本调用的情况下加载它。 （见perldoc perlrun 。）

Answer 3

包括这个：

use Carp ();

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

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

该confess行会给出一个堆栈跟踪，并cluck线更加简洁。

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作为无效引用。 我怀疑这是设计的，所以autvivification无缝地工作。