Perl DBI - 捕获错误

Question

在Perl中捕获任何DBI错误的最佳方法是什么？ 例如，如果插入失败，因为插入的值中存在非法字符，我怎么能不让脚本失败，而是捕获错误并适当地处理它。

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

Answer 1

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

有关其他可用连接变量的更多信息，请参阅文档 。

例如：

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: $_";
};

Answer 2

您还可以执行以下操作，这将允许您死亡或优雅地处理错误并继续。

$dbh = DBI->connect($data_src, $user, $pwd) or die $DBI::errstr;

my $sth = $dbh->prepare("DELETE FROM table WHERE foo = '?'");
$sth->execute('bar');
if ( $sth->err )
{
  die "DBI ERROR! : $sth->err : $sth->errstr \n";
}