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

概述我有一个数据库查询,我在eval中运行,以捕获错误.问题是错误消息正在输出到控制台,即使它被捕获.如何阻止错误消息执行此 *** 作,因为我想自己解析它并吐回我自己的消息？ my $dbh = DBI->connect('dbi:Pg:dbname=database;host=localhost', 'user', 'pass', {RaiseError => 1});eval{ 我有一个数据库查询,我在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}

解决方法 您可以指定’ PrintError =>您的连接呼叫中的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 $@}

总结

以上是内存溢出为你收集整理的perl – 为什么我在控制台上看到DBI错误,即使我已将DBI调用包装在eval中？全部内容，希望文章能够帮你解决perl – 为什么我在控制台上看到DBI错误,即使我已将DBI调用包装在eval中？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。