Perl DBI - 捕获错误

Question

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

我不想做"或死",因为我不想停止执行脚本.

Answer 1

使用RaiseError=>1在配置DBI->connect和包装你的电话到$dbh并$sth在try块(TryCatch和尝试::微小的是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: $_";
};