ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     23 Jan 2002  17:57:54
 To : vitus@ice.ru
 Subject : Re: Net::POP3
 -------------------------------------------------------------------------------- 
 

 
 Hе такой простой этот Net::POP3. Hижеприведенный пример заработает, но
 может сбоить в некоторых ситуациях, наверно. Главная трудность -
 применить потом чтото вроде 
 
 Date::Parse; Date::Format; MIME::Parser; MIME::Entity; MIME::Head;
 
 ----------------------------------------------------------
 use Net::POP3;
 
 my $pop = Net::POP3->new($host) || die($!);
 
 $pop->login($user, $password);
 
 my ($msgnum)=$pop->popstat;
 if( not defined $msgnum){
   print "Messages not found\n";
   exit;
 }
 if( defined $msgnum and $msgnum>0){
   my $messages = $pop->list  || die($!);
   foreach $msgid ( keys %$messages ){
    my $message = $pop->get($msgid);
    foreach(@$message){
            print "$_";
    }
 #     $pop->delete($msgid);
 }
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Net::POP3   Alexander Bolotnov   23 Jan 2002 12:13:28   Re: Net::POP3   vitus@ice.ru   23 Jan 2002 16:43:55   Re: Net::POP3   Konstantin Tokar   23 Jan 2002 17:57:54   Net::POP3   Alexander Bolotnov   23 Jan 2002 18:22:56   Re: Net::POP3   vitus@ice.ru   25 Jan 2002 11:41:19