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

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

| 我在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;
}