Perl DBI – 捕获错误

发布时间：2020-12-15 21:42:32 所属栏目：大数据来源：网络整理

导读：在Perl中捕获任何DBI错误的最佳方法是什么？例如,如果插入失败,因为插入的值中存在非法字符,我怎么能不让脚本失败,而是捕获错误并适当地处理它. 我不想做“或死”,因为我不想停止执行脚本. 解决方法在DBI- connect中使用RaiseError = 1配置,并在try块中包含

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!