ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Aleksey Korolkov                     2:5020/400     25 Jun 2000  18:55:19
 To : All
 Subject : Net::POP3
 -------------------------------------------------------------------------------- 
 

 Привет All !
 Есть ли здесь люди, использующие сабжевый модуль?
 Помогите разобраться, если не трудно.
 Моя прога должна забирать почту, но пока у меня не получилось это
 сделать. Я вижу сколько сообщений пришло в ящик, вижу разммер ящика,
 но немогу получить письма. Использовал методы get и top, но результат
 всегда один и тот же. В лог я получаю что-то вроде "ARRAY{бла-бла}"
 Вот мое "творение":
 
 #!/usr/bin/perl -w
 
 use lib '/lehkor/libnet';
 use Net::POP3;
 
 open(UDATA,'usrdat') or die "cant open user data file\n";
 $login  = <UDATA>; chop($login);
 $passw  = <UDATA>; chop($passw);
 $server = <UDATA>; chop($server);
 close(UDATA);
 
 $pop3 = Net::POP3->new($server, Debug=>0);
 die "Couldn't log on to server\n" unless $pop3;
 
 $msg_num = $pop3->login($login, $passw);
 ($undmsg_num,$box_size) = $pop3->popstat();
 
 print "messages  :   $msg_num\n";
 print "undeleted :   $undmsg_num\n";
 print "box size  :   ",int($box_size/1024),"kb\n";
 
 if ($msg_num > 0)
 {
  print "printing message #1\n";
  @message = $pop3->top(1,3);
  foreach (@message)
  {
    print "$_\n";
  }
  open(LOG,">logfile") or die "cant open log file\n";
  print LOG @message;
  close(LOG);
 }
 
 $pop3->quit();
   
 -- 
 The Bat! 1.44
 Кровь за кровь, жучка за внучку!
 --- ifmail v.2.15dev5
  * Origin: unknown (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Net::POP3   Aleksey Korolkov   25 Jun 2000 18:55:19   Re: Net::POP3   Aleksey Barabanov   26 Jun 2000 03:11:40   Re: Net::POP3   Serge Shikov   26 Jun 2000 11:06:54   Re: Net::POP3   ‚пзҐб« ў ‘Ё¬ Є®ў   28 Jul 2000 18:25:52