perl - 如何抑制来自 DBI 的任意警告/错误消息？

Question

代码:

# A:
$dbh->do(qq/insert into foo(cl) values('test')/);
# B:
$dbh->do(qq/insert into foo(cl) values('test')/) or warn $dbh->errstr;
# C:
eval { $dbh->do(qq/insert into foo(cl) values('test')/); };
warn "error : $@ " if $@;

全部输出:

DBD::mysql::db do failed: Duplicate entry 'test' for key 'cl' at a.pl line 9.

我不希望将此任意警告/错误消息发送到标准错误。我想使用 warn $dbh->errstr。

perl a.pl 2>/dev/null 会抑制错误消息，但我想知道如何在脚本中执行此操作？

Answer 1

您需要安装自己的错误处理程序。例如

$dbh->do($statement, { HandleError => \&handle_error });

DBI POD 中描述了错误处理程序

另一种选择是:

• 将 PrintWarn 属性设置为 false 值(感谢 Sinan 在某个论坛上的回答

• 通过信号处理程序捕获所有警告:$SIG{'__WARN__'} = sub {};