|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 14 Jan 2003 20:58:39
To : "Serg"
Subject : Re: И все таки, как избавиться от ошибок?
--------------------------------------------------------------------------------
Здравствуй, Serg.
S> Hi All,
S> Тут недавно проскакивали месаги на тему того, что я тут щас буду писать. Hо
S> почему-то они мне мало помогли:). Вот код (это уже с учетом всех этих
S> мессаг):
S> use Mysql || do{print "can't open";}
S> $r=9;
S> print 'ok';
S> Почему выдает ошибку:
S> syntax error at script line 1, near "use Mysql ||"
S> Execution of script aborted due to compilation errors.
S> Пробовал различные варианты постановки ';', все одно и то же. Правда если
S> поставить так:
S> use Mysql; || do{print "can't open"}
S> $r=9;
S> print 'ok';
S> то выдает:
S> Can't locate DBI.pm in @INC (@INC contains: I:/program/activeperl/lib
S> I:/program/activeperl/site/lib .) at I:/program/activeperl/site/lib/Mysql.pm
S> line 9 .
S> Compilation failed in require at script line 1.
S> BEGIN failed--compilation aborted at script line 1.
S> а мне надо, что бы она плевала на все ошибки возникающие при
S> use Mysql (выдавая лишь "can't open") и продолжала выполнять код дальше. Hу
S> не хочу я дома ставить Mysql:). Да и к тому же какая-то ошибка левая выдается
S> при установке:).
S> То что я тут спрашиваю - это вообще-то можно?
eval { require Mysql }; print "can't open" if $@;
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: И все таки, как избавиться от ошибок?