Perl DBI-捕获错误

Question

在Perl中捕获任何DBI错误的最佳方法是什么？例如，如果由于插入的值中包含非法字符而导致插入失败，那么如何使脚本不失败，但是如何捕获错误并进行适当处理。

我不想做“死”，因为我不想停止脚本的执行。

Answer 1

使用RaiseError=>1中的DBI->connect配置，并将对$dbh和$sth的调用包装在try块中(TryCatch和Try::Tiny是try块的良好实现)。

有关其他可用连接变量的更多信息，请参见the docs。

例如:

use strict;
use warnings;

use DBI;
use Try::Tiny;

my $dbh = DBI->connect(
    $your_dsn_here,
    $user,
    $password,
    {
        PrintError => 0,
        PrintWarn  => 1,
        RaiseError => 1,
        AutoCommit => 1,
    }
);
try
{
    # deliberate typo in query here
    my $data = $dbh->selectall_arrayref('SOHW TABLES', {});
}
catch
{
    warn "got dbi error: $_";
};