Почему я вижу ошибки DBI на консоли, хотя я обернул вызовы DBI в eval? - PullRequest
Новая
       7

Почему я вижу ошибки DBI на консоли, хотя я обернул вызовы DBI в eval?

4 голосов
/ 08 июля 2010

У меня есть запрос к базе данных, который я выполняю внутри eval, чтобы перехватить ошибку. Проблема заключается в том, что сообщение об ошибке выводится на консоль, даже если оно находится в ловушке. Как мне остановить это сообщение об ошибке, так как я хочу сам разобрать его и выплюнуть свои собственные сообщения? 

my $dbh = DBI->connect('dbi:Pg:dbname=database;host=localhost',
    'user', 'pass', 
    {RaiseError => 1}
);

eval{
    $sth = $dbh->prepare($sql);
    $sth->execute;
};

if($@){
    #Do my parse/print stuff here I know
}

Ответы [ 3 ]

13 голосов
/ 08 июля 2010

Не очень хорошая идея отлавливать и игнорировать ошибки, независимо от того, являются ли они фатальными или нет.Кроме того, не рекомендуется проверять $ @ так, как вы это делаете (см. Вопросы на этом сайте об исключениях perl, чтобы найти лучшие способы перехвата исключений; ниже я использую Try :: Tiny ,возможно, самый легкий маршрут из всех).

Вместо продолжения операции DBI, когда более ранняя операция могла быть неудачной, вы должны проверять условия ошибок на каждом этапе: 

use strict; use warnings;
use Try::Tiny;

try {
    my $sth = $dbh->prepare($sql) or die $dbh->errstr;
    $sth->execute or die $sth->errstr;
} catch {
    print "got error $_\n";
    # return from function, or do something else to handle error
};

помните, всегда use strict; use warnings; в каждом модуле и скрипте.Ваш отрывок кода предполагает, что вы еще этого не делаете.

6 голосов
/ 08 июля 2010

Вы можете указать ' PrintError => 0' в вашем connect вызове (или использовать HandleError ): 

my $dbh = DBI->connect('dbi:Pg:dbname=database;host=localhost', $user, $passwd, {
  PrintError => 0,
  RaiseError => 1,
});

Или установить для каждого дескриптора оператора: 

my $sth = $dbh->prepare("SELECT * from my_table");
$sth->{PrintError} = 0;
$sth->execute();
...etc.

Кроме того, не указывайте $ @ для указания ошибки. Лучший способ использовать eval: 

my $result = eval {
  ...
  $sth->...etc.
  1;
}
unless ($result) {
  # Do error handling..log/print $@
}
2 голосов
/ 08 июля 2010

eval { } перехватит фатальную ошибку (от вызова die или Carp::croak), но не сообщение о нефатальной ошибке (от warn или carp).Для обработки предупреждающих сообщений см., Как установить обработчик предупреждений в документации для %SIG или warn.

Тривиальное обходное решение заключается в использовании тривиального предупрежденияобработчик внутри вашего eval блока. 

eval {
    local $SIG{__WARN__} = sub { };
    ...
};

См. также: perlfaq7: Как временно заблокировать предупреждения?

...