我在 Perl 脚本中有 2 行彼此靠近，可能会抛出 __WARN__。如果第一个抛出，那么我只想从函数中返回而不是尝试继续。
我知道如何在这两行之前设置一个处理程序，以便我可以报告错误等：
local $SIG{__WARN__} = sub {
my $e = shift;
# log the error etc.
return;
};
# possibly warning-resulting line 1
# possibly warning-resulting line 2
但是这发生在两条线上。我宁愿它只是捕获第一个实例并从函数返回。但是该处理程序中的返回只返回处理程序，而不是外部函数。
有没有办法在处理信号时从函数中返回？
【问题讨论】：
将两行代码包装在不同的函数中，并让第一行返回一个状态，指示调用函数应该返回。单独的函数可以根据需要处理警告 - 可能使用相同的函数来执行相同的日志记录。
sub wrap_line_1
{
local $SIG{__WARN__} = ...;
...do line 1...
return ($warning_fired ? 1 : 0);
}
sub wrap_line_2
{
local $SIG{__WARN__} = ...;
...do line 2...
return;
}
...calling code...
wrap_line_1() and return;
wrap_line_2();
...
【讨论】：
不，您不能强制调用者返回。 （好吧，我相信你可以，用正确的黑魔法 XS 咒语。但不要！）
这似乎是一个错误的设计；警告不应该是致命错误，当然也不应该这样使用。
【讨论】：
use warnings FATAL => 'all'。有了它，可以相应地处理任何警告抛出和异常。
您可以在处理程序中使用 die() 并在 eval 中捕获它，如下所示：
use 5.12.0;
local $SIG{__WARN__} = sub {
my $e = shift;
# log the error etc.
die "$e";
};
func(undef);
func('honk');
sub func {
my $foo = shift;
eval {
my $bar = "a $foo";
say "$bar";
};
if ($@) {
die $@ unless $@ =~ /^Use of uninitialized value/;
}
return;
}
不过，您可能想直接检查警告是否会发生并简单地返回：
sub func {
my $foo = shift;
return unless defined($foo);
...; # use $foo fine
}
【讨论】：
只需抛出异常并在调用者中捕获并返回。
让处理程序返回一个值，并在 eval 之后的 if 语句中检查它是否返回。
实际上，您甚至不必从处理程序返回值，因为它不决定是否返回 - 您总是在捕获时返回。
具体来说：
# We're in the caller now
eval{
local $SIG{__WARN__} = sub {
my $e = shift;
# log the error etc.
die MyWarnException->new("This is an exception.");
};
# Offending statements go here
do_things();
};
if( $@ && $@->isa('MyWarnException')){
return;
}
【讨论】：