Perl -Database-Connection 计数/错误处理

Question

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

正在寻找以下内容：

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

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

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

DBD::Sybase::st 执行失败：服务器 消息数=27000 严重性=16 状态=1 行=4 服务器=SYBDEV_HYD 程序=j_err text=但是这个确实 [对于语句“EXEC sandbox..j_err”] 在 /usr/local/lib/perl5/site_perl/5.8.6/DBIx/ContextualFetch.pm 第 51 行。

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

Answer 1

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

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

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