Perl：捕获错误而不死

Question

我正在尝试错误处理并遇到了一些问题。 我使用 DBI 模块连接数据库。

我通过使用在出现错误时调用的子例程来进行自己的错误处理。

我可以捕获自己的模具并很好地处理它们，但是当我的数据库连接失败时，DBI 模块显然会打印出它自己的模具：

DBI 连接（...）失败：ORA-12154：TNS：无法解析 指定的连接标识符（DBD 错误：OCIServerAttach）位于...

我将如何捕获这个？

我尝试像这样使用 $SIG{__DIE__} ：

local $SIG{__DIE__} = sub {
  my $e = shift;
  print "Error: " .$e;
};

这是在我的主文件的底部，在这个文件中我还调用了我自己的模块中可用的连接子例程。我还尝试将这段代码放在模块的底部，但它仍然打印错误而没有

错误：

在它前面。

Answer 1

DBI 连接（...）失败：ORA-12154：
TNS：无法解析连接
指定的标识符（DBD 错误：
OCIServerAttach）位于...

我该如何捕捉这个？

要捕获并处理此级别的错误，请以块形式使用 eval，“eval { ... }”。这将捕获子代码中发生的任何骰子。如果 eval 块中的代码死亡，它将设置 $@ 并且该块将返回 false。如果代码没有死，$@将被设置为''。

通过 SIG{WARN} 和 SIG{DIE} 使用信号处理很麻烦，因为它们是全局的，还需要考虑竞争条件（如果我在处理不同信号时收到信号会发生什么？等等）。基于信号的计算）。您可能正在编写单线程代码，因此您不必担心多个调用 die 的并发问题，但需要考虑用户（也许他会在您尝试打开 DBI 连接时发送 SIGKILL )

在这种特定情况下，您正在使用 DBI。使用 DBI，您可以控制发生错误时发生的情况，是否应终止、发出警告或静默失败并等待您检查返回状态。

这是使用 eval { ... } 的基本示例。

my $dbh = eval { DBI->connect( @args) };
if ( $@ )
{
    #DBI->connect threw an error via die
    if ($@ =~ m/ORA-12154/i )
    {
        #handle this error, so I can clean up and continue
    }
    elsif ( $@ =~ m/SOME \s* other \s* ERROR \s+ string/ix )
    {
       #I can't handle this error, but I can translate it
        die "our internal error code #7";
    }
    else 
    {
      die $@; #re-throw the die
    }
}

以这种方式使用 eval 有一些小问题，与 $@ 的全局范围有关。 Try::Tiny cpan 页面有很好的解释。 Try::Tiny 处理最小的 Try/catch 块设置，并处理本地化 $@ 和处理其他边缘情况。

Answer 2

好的，找到了解决方案，显然我需要 __WARN__ 而不是 __DIE__ 并且这段代码需要位于文件的顶部，在抛出错误之前，不像我读过的例子说明了:)

Answer 3

将其包含在您的 SIG{__DIE__} 块中：

### Check if exceptions being caught.
return if $^S;

这将防止您的处理程序用于在 eval 块内生成 die 的基于异常的代码。

Answer 4

DBI中有很多开关，例如PrintError、RaiseError等，您可以调整它们。
请参阅http://search.cpan.org/perldoc?DBI

Answer 5

这并不像整体的模具捕手那样通用，但专门针对 DBI 错误处理，我们实际上有自己的模块，提供数据库调用的包装器；该模块的功能之一是在每个 DBI 调用周围包装 eval （取决于标志）。

这使我们能够在数据访问级别进行自定义错误处理，例如查询重试、统计、自动故障转移等 - 所有这些对代码的其余部分都是透明的。