|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 05 Jun 2002 10:58:15
To : "Roman Skvirskij"
Subject : Re: Запретить вывод ошибок
--------------------------------------------------------------------------------
Здравствуй, Roman Skvirskij.
RS> Hello, Andrey!
RS> You wrote to Roman Skvirskij on Tue, 4 Jun 2002 11:25:42 +0000 (UTC):
AS>> Roman Skvirskij wrote:
RS> >> Hello, Andrey!
RS> >> You wrote to Roman Skvirskij on Tue, 4 Jun 2002 10:21:56 +0000 (UTC):
AS>>>> Roman Skvirskij wrote:
RS> >>>> Проблема следующая - как в перловом сценарии запретить вывод ошибок
RS> >>>> и предупреждений? Ошибки я обрабатываю, а вот сообщения хотелось бы
RS> >>>> убрать.
AS>>>> 1. Разобраться в причине их возникновения и ликвидировать причину.
AS>>>> 2. Если так и положено ругаться в данном месте (вероятность 1 к 10
AS>>>> 000)
RS> >> Hеправильно. Сервер БД может быть недоступен по многим причинам.
AS>> Да ради Бога, пусть будет недоступен.
AS>> $dbh = DBI->connect($data_source, $user, $pass, {
AS>> PrintError => 0,
AS>> AutoCommit => 0 });
AS>> if (!$dbh) {
AS>> ....
AS>> }
AS>> Где тут требуется какое либо подавление варнингов?
RS> Я ошибся. Предположим, что таблица исчезла. В этом случае при выполении в
RS> eval я получаю варнинг. Честно говоря, я в перле не силен, но я в eval
RS> переопределил SIG{__WARN__} и все стало ОК.
Hет, все-таки меня поражает, на что готов пойти человек, лишь бы не читать
документацию...
$ perldoc DBI
/PrintError
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
