Perl DBI - Ошибки захвата

Question

Каков наилучший способ захвата любых ошибок DBI в Perl? Например, если вставка терпит неудачу, так как в вставленных значениях были недопустимые символы, как я могу не выполнить сценарий, но запишите ошибку и обработайте ее соответствующим образом.

Я не хочу делать «или умереть», потому что я не хочу прекращать выполнение сценария.

Answer 1

Используйте конфигурацию RaiseError=>1 в DBI->connect и обернуть ваши звонки в $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: $_"; 
}; 

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"; 
}