在Perl中捕获任何DBI错误的最佳方法是什么?例如,如果插入失败,因为插入的值中存在非法字符,我怎么能不让脚本失败,而是捕获错误并适当地处理它。
我不想做“或死”,因为我不想停止执行脚本。
答案 0 :(得分:12)
使用RaiseError=>1
中的DBI->connect
配置,并在try块(TryCatch和{{3}中将来电包裹到$dbh
和$sth
是try块的好实现。)
有关其他可用连接变量的详细信息,请参阅Try::Tiny。
例如:
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: $_";
};
答案 1 :(得分:3)
您还可以执行以下操作,这将允许您死亡或优雅地处理错误并继续。
$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";
}