ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Igor Chumak                          2:5020/400     11 Jan 2005  12:02:36
 To : Artem Korneev
 Subject : Re: Perl Net::POP3
 -------------------------------------------------------------------------------- 
 

 Hello, Artem!
 You wrote to All on Tue, 11 Jan 2005 02:22:56 +0300:
 
  AK>                         Вы не брали мои тапочки, All?
 
  AK>     Кто сабжевыми модулями пользовался?
 
  AK>     #!/usr/bin/perl
 
  AK>     use Net::POP3;
 
  AK>     $pop3 = Net::POP3->new('10.16.20.123');
  AK>     $pop3->login('user','password');
  AK>     @output = $pop3->list();
  AK>     print @output;
 
  AK>     Выводом этого куска кода будет что-то вроде HASH(0x82406a8), а
  AK> хочется чтобы был символьный вывод метода list.
  AK>     Если вызывать как $pop3->list( 1 );, то всё нормально, но
  AK> отображается, конечно же, только информация о письме с номером 1, а
  AK> хочется чтобы отображалось всё как в выводе обычной POP3 команды
  AK> list, т.е. таблица с информацией обо всех письмах на сервере.
  AK>     Что я делаю не так? Почему лыжи не едут? Как это делается
  AK> правильно?
 
 Как правильно - не знаю. А так работает:
 
 $p=Net::POP3->new($pop3srv) or die "cant open connection to server: $!\n";
 
 $p->login($pop3login,$pop3pass) or die "Cant  authentificate: $! \n";
 $m=$p->list or die "cant get list of undeleted mesg: $!\n";
 
 my $parser = new MIME::Parser;
 
 foreach $list(keys %$m)
 {
   @attach_list=();
   $msg=$p -> get($list);
   $parser->output_under($tmp_dir);
   $entity = $parser->parse_data($msg) or die "parse failed\n";
   $head = $entity->head;
   $from=$head->get("From");
   $subject=$head->get("Subject");
 ...
 
   $p->delete($list);
 
 };
 With best regards, Igor Chumak.  E-mail: igor()g-auto.pul.kiev.ua
 --- ifmail v.2.15dev5.3
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Perl Net::POP3   Artem Korneev   11 Jan 2005 03:22:56   Re: Perl Net::POP3   Igor Chumak   11 Jan 2005 12:02:36