0

使用 perl 脚本 (Perl 5.8.6)，我连接到 Sybase 数据服务器。

寻找以下内容：

  1. 脚本当前打开了多少个连接。

  2. 通用（非数据服务器特定）错误处理模块/机制

执行存储过程时，它返回以下错误消息。

DBD::Sybase::st 执行失败：服务器消息号=27000 严重性=16 状态=1 行=4 服务器=SYBDEV_HYD 过程=j_err 文本=但是这个在 /usr 上执行 [for Statement "EXEC sandbox..j_err"] /local/lib/perl5/site_perl/5.8.6/DBIx/ContextualFetch.pm 第 51 行。

由于此脚本的用户是非技术人员，因此尝试仅报告消息“但是这个可以”（出现在 text= 之后）。虽然我可以解析这个，但尝试查看是否有任何通用模块，因为其他数据服务器（如 MySQL、SQL Server 等）可以有自己的方式报告错误消息。

4

1 回答 1

3

我不太确定您在问什么，但是通过阅读DBD::Sybase和DBI的文档，您会发现很多信息。您可能必须自己跟踪连接数（参见DBI->connect示例）。

对于错误处理，您可能应该自己编写合理的诊断消息以及行号 - 您可以使用warn()或carp()轻松完成此操作。

也请随时编辑您的问题，详细说明您要做什么；一些示例代码会有所帮助。

于 2009-10-31T17:22:08.320 回答