|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Koteroff 2:5020/400 16 Jun 2002 04:23:15
To : Rostislav Podgornyi
Subject : Re: срочно нужна помощь по net::pop3
--------------------------------------------------------------------------------
Здравствуйте, Rostislav.
15 июня 2002 года, суббота, 19:35. Вы написали:
> foreach $user (@users) {
> @user_params = split(/\|x\|/,$user);
> $pop = Net::POP3->new("$user_params[4]", Timeout => 60);
> $user = $pop->user("$user_params[5]");
> $pass = $pop->pass("$user_params[6]");
> ....
> --------------------------------------
> Так вот возникла одна пpоблема.
> Если попадается несуществующий pop3 сеpвеp то скpипт пpекpащает свою
> pаботу. А мне нужно, чтоыб он пpодолжал дальше пpовеpять почту.
В каком именно месте и как именно он ее прекращает?.. Если по $pop=undef, то
нужно просто поставить в цикле проверку. Если же по исключению (при вызове
die внутри одной из функций), то заключите тело цикла в eval { ... } (eval с
фигурными скобками, а не со скаляром!)
--
С уважением,
Дмитрий Котеров (dk@dklab.ru), ведущий программист (http://www.dklab.ru).
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: срочно нужна помощь по net::pop3 
