Perl -Database-Connection Count/обработка ошибок

Question

Используя Perl-скрипт (Perl 5.8.6), я подключаюсь к Sybase dataserver.

Ищет следующее:

1. Сколько соединений в настоящее время открыты с помощью сценария.

2. Generic (не DataServer специфические) Обработка ошибок модули/механизм

При выполнении хранимой процедуры, она возвратила следующее сообщение об ошибке.

DBD :: Sybase :: ул Execute не удалось: Сервер номер сообщения = 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.

Поскольку пользователь этого сценария является не- techie, пытаясь сообщить только сообщение «Но это делает» (появляется после текста =). Хотя я могу разобрать это, пытаясь увидеть, есть ли какой-либо общий модуль, поскольку другой dataserver (например, MySQL, SQL Server и т. Д.) Может иметь собственный способ сообщения об ошибке msg.

Answer 1

Я не совсем уверен, что вы просите, но вы найдете много информации, прочитав документацию для DBD::Sybase и DBI. Вы, вероятно, должны сами отслеживать количество подключений (см. Пример для DBI->connect).

Для обработки ошибок вы должны, вероятно, просто составить разумное диагностическое сообщение самостоятельно вместе с номером строки - вы можете сделать это легко с помощью warn() или carp().

Также вы можете отредактировать свой вопрос с более подробной информацией о том, что вы пытаетесь сделать; некоторый пример кода был бы полезен.