Perl DBI – 捕获错误

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

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

解决方法

在DBI-> connect中使用raiseerror => 1配置,并在try块中包含对$dbh和$sth的调用( 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: $_";
};