ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Aleksey Barabanov                    2:5020/400     14 Sep 2000  18:18:04
 To : All
 Subject : Re: Net::POP3 bug ? (second stage)
 -------------------------------------------------------------------------------- 
 

 Здравствуйте, Антон.
 
 Пишу исключительно для того что бы вам не пришлось спрашивать в третий
 раз ;) Т.к. никто более умный видимо не находит времени вам ответить.
 
 Anton Dyuzhev wrote:
 
 > 
 > Привет, All !
 > 
 > Subj. Hа стадии $pop->pass("myc00lpassword");
 > Проверено на 2-х POP3-серверах.
 > 
 > Прога такая:
 > 
 > use Net::POP3;
 > $pop=Net::POP3->new("pop3.provider.com", Timeout=>30) or die "ERROR1 $! \n";
 > $pop->user("vasyapupkin")or die "ERROR2 $! \n";
 > $pop->pass("myc00lpassword") or die "ERROR3 $! \n"; #Просиходит die здесь
 
 Попробуйте вместо последней строчки так
 ------------------------cut
 my $r = $pop->pass('myc00lpassword');
 unless( defined($r)){ die "ERROR3 $! \n";}
 print "msg cnt = $r\n";
 ------------------------cut
 И не забудьте, что если писем 0 то будет возвращена строка "0E0". Вот
 такая там есть странность.
 
 Bye.
 -- 
 Aleksey Barabanov <alekseybb@mtu-net.ru>
 --- ifmail v.2.15dev5
  * Origin: Small Office, Russia (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Net::POP3 глюк ? (второй раз спрашиваю)   Anton Dyuzhev   14 Sep 2000 15:42:06   Re: Net::POP3 bug ? (second stage)   Aleksey Barabanov   14 Sep 2000 18:18:04   Re: Net::POP3 bug ? (second stage)   Paul Kulchenko   15 Sep 2000 02:05:59