来自perl DBI的Sybase警告消息

作者: My☀
发布时间: 2024-07-12 08:21:11 (15天前)
转自：

2 条回复

0#
回复此人
满目山河 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 您可以使用回调来处理要忽略的消息。见 <a href="http://search.cpan.org/~mewp/DBD-Sybase-1.15/Sybase.pm#Sybase_Specific_Attributes" rel="nofollow noreferrer"> DBD :: Sybase docs </A> 。以下内容源自文档。您指定要忽略的消息编号。 </p> <pre> <code> %blocked_msgs = map { $_ => 1 } ( 2401, 2411 ); sub err_handler { my($err, $sev, $state, $line, $server, $proc, $msg, $sql, $err_type) = @_; if ( exists $blocked_msgs{$err} ) { # it's a blocked message return 0; # This is not an error } return 1; } </code> </pre> <P> 这是您可以使用它的方式： </p> <pre> <code> $dbh = DBI->connect('dbi:Sybase:server=troll', 'sa', ''); $dbh->{syb_err_handler} = \&err_handler; $dbh->do("exec someproc"); $dbh->disconnect; </code> </pre> </DIV>

编辑

登录后才能参与评论