ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     04 May 2004  01:17:26
 To : Alexander Ilyankin
 Subject : Re: POP3
 -------------------------------------------------------------------------------- 
 

 Alexander Ilyankin wrote:
 
 > Привет, All!
 > 
 > Подскажите какой-нибудь скрипт-исходник для работы с POP3 на модуле Net::POP3.
 > А то в perldoc примеров вообще никаких нет :( 
 > 
 >                                               Удачи!
 > 
 
 Этот пример я проверил на реальном адресе.
 
 #!perl -w
 use strict;
 use Net::POP3;
 use Data::Dumper;
 
 my $host = '127.0.0.1';
 my $user='demo';
 my $password='demo';
 
 my $pop = Net::POP3->new( $host, Timeout => 60, Debug =>1 ) || die ($!);
 
 $pop->login( $user, $password );
 
 my $messages = $pop->list() || {};
 foreach my $msgid ( keys %$messages ){
   my $message = $pop->get($msgid);
   print Dumper($message);
   $pop->delete($msgid);
 }
 
 $pop->quit();
 
 --- ifmail v.2.15dev5.3
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    POP3   Alexander Ilyankin   02 May 2004 23:48:45   Re: POP3   Konstantin Tokar   04 May 2004 01:17:26   Re: POP3   Alexander Ilyankin   05 May 2004 14:36:45   Re: POP3   Konstantin Tokar   06 May 2004 12:11:22