Question

我有一个数据库查询，我在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
}

Answer 1

陷阱和忽略错误并不是一个好主意，无论它们是否致命。此外，不建议以您的方式检查$ @（请参阅本网站上有关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;在的每个模块和脚本中。您的代码摘录表明您尚未执行此操作。

Answer 2

您可以指定“PrintError =＆gt; connect来电中的0'（或使用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 $@
}

Answer 3

eval { }将捕获致命错误（来自die或Carp::croak调用），但不会收到非致命错误消息（来自warn或{{1} }）。要处理警告消息，请参阅如何在%SIG或warn的文档中安装警告处理程序。

一个简单的解决方法是在carp块中使用一个简单的警告处理程序。

eval

另请参阅：perlfaq7: How do I temporarily block warnings?

为什么我在控制台上看到DBI错误，即使我已将DBI调用包装在eval中？

3 个答案: