Question

我在Perl脚本中有两条线可以抛出__WARN__。如果第一个抛出，那么我想从函数返回而不是尝试继续。

我知道如何在两行之前设置处理程序，以便我可以报告错误等：

local $SIG{__WARN__} = sub {
  my $e = shift;
  # log the error etc.
  return;
};
# possibly warning-resulting line 1
# possibly warning-resulting line 2

但是这两条线都会发生这种情况。我宁愿只抓住第一个实例并从函数返回。但是该处理程序中的返回仅返回处理程序，而不是外部函数。

处理信号时有没有办法从函数返回？

Answer 1

将两行包装在单独的函数中，并让第一行返回一个状态，指示调用函数应该返回。单独的函数可以根据需要处理警告 - 可能使用相同的函数来执行相同的日志记录。

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();
...

Answer 2

不，你不能强迫来电者回来。（好吧，我相信你可以，用正确的黑魔法XS咒语。但不要！）

这似乎是一种误入歧途的设计;警告不应该是致命的错误，当然不应该像这样使用。

Answer 3

只需抛出异常并捕获并返回调用者。

让处理程序返回一个值并检查它以在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;
}

Answer 4

你可以在你的处理程序中死掉（）并在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
}

在Perl中捕获信号的最优雅方法是什么？

4 个答案: