Perl -Database-Connection Count /错误处理

Question

使用Perl脚本（Perl 5.8.6），我连接到Sybase dataserver。

寻找以下：

1. 多少个连接正在由脚本打开。

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

当执行存储的过程，它返回下列的错误消息。

DBD ::的Sybase :: ST执行所失败：服务器 消息数= 27000严重性= 16 状态= 1行= 4服务器= SYBDEV_HYD 过程= j_err文本=但这一个确实 [用于声明“ EXEC sandbox..j_err“] 在 /usr/local/lib/perl5/site_perl/5.8.6/DBIx/ContextualFetch.pm 线51

由于该脚本的用户是一个非技术人员，试图仅报告消息“但这一个”（即在文本=后出现）。尽管我可以解析这个，试图查看是否有任何通用模块，因为其他dataserver（如MySQL，SQL Server等）可以用自己的方式报告错误消息。

Answer 1

我不太清楚你在问什么，但是通过阅读关于DBD::Sybase和DBI的文档，你会发现很多信息。您可能必须记录自己的连接数量（请参阅DBI->connect的示例）。

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

也请随意编辑您的问题，更详细地说明您正在尝试做什么;一些示例代码会很有帮助。