Как я могу собрать ошибки, возникающие при выполнении операторов с использованием DBI?

Question

Когда запрос завершается с ошибкой, мне нужно добавить сообщение об ошибке в массив.

Это моя линия исполнения:

$txnQuery[$t] = $sth_Data->execute(@argsIn); 

Я пытаюсь что-то вроде этого:

$txnQuery[$t] = $sth_Data->execute(@argsIn) or die push(@Error,"SQL Error"); 

Answer 1

DBI module предоставляющей PrintError, RaiseError и HandleError параметров для настройки, как вы хотите обработки ошибок работать. Первые два являются только флагами, но HandleError может быть настроен на ссылку подпрограммы, которая позволит вам точно написать, что вы хотите сделать в случае ошибки

Например, вы можете создать что-то вроде поведения RaiseError написав

$dbh->{HandleError} = sub { 
    my ($msg, $dbh, $ret) = @_; 
    die $msg; 
}; 

или вы могли бы аккумулировать список ошибок, которые возникают, как вы описываете, достаточно одного нажатия на массив. Что-то вроде этого, возможно,

my @errors; 

$dbh->{HandleError} = sub { 
    my ($msg, $dbh, $ret) = @_; 
    push @errors, $msg; 
}; 

Если вы хотите сообщение, выводимое на консоль, то вы можете warn $msg в обработчике ошибок, или вы можете просто оставить PrintError установить

Вы можете добавить метку времени каждый элемент, который вы нажимаете на массив, и это можно сделать что-то более сложное, используя параметр дескриптора базы данных $dbh и $ret, что возвращаемое значение неисправного DBI метода