在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

但是，这两种情况都会发生。我宁愿它只是捕获了第一个实例并从函数中返回。但是该处理程序中的返回仅返回该处理程序，而不返回外部函数。处理信号时，是否可以从函数中返回？

已邀请:

4 个回复

容淑阔九

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

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

要回复问题请先登录或注册

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

4 个回复

发起人

exception

perl

signals

问题状态

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

与内容相关的链接

4 个回复

发起人

exception

perl

signals

问题状态