问题描述
|
我在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咒语。但是不要!)
这似乎是一个误导的设计。警告不应该是致命的错误,当然也不应该这样使用。
, 您可以在处理程序中使用die()并在评估中捕获它,如下所示:
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;
}