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

Question

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

寻找以下内容：

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

2. 通用（非特定于dataserver）错误处理模块/机制

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

  

DBD :: Sybase :: st执行失败：服务器   消息号= 27000严重性= 16   state = 1 line = 4 server = SYBDEV_HYD   procedure = j_err text =但是这个   [for Statement“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()轻松完成此操作。

请随时编辑您的问题，并详细说明您的目标;一些示例代码会有所帮助。