ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     06 May 2004  12:11:22
 To : Alexander Ilyankin
 Subject : Re: POP3
 -------------------------------------------------------------------------------- 
 

 Alexander Ilyankin wrote:
 
 > Привет, Konstantin!
 >  KT> Этот пример я проверил на реальном адресе.
 >  KT> my $pop = Net::POP3->new( $host, Timeout => 60, Debug =>1 ) || die ($!);
 > .
 > .
 > .
 >  KT> $pop->quit();
 > спасибо.
 > 
 > А каким образом можно выбрать BODY (т.е. сам текст сообщения который мне
 > прислали) из соощения ?
 
 Я этот код не проверял, но должно быть что-то похожее
 
 use strict;
 use Mail::Field;
 use MIME::Parser;
 use MIME::Entity;
 use MIME::Head;
 use Date::Parse;
 
 my $msg = shift; # это arrayref с сообщением
 my $parser = new MIME::Parser;
 my $entity = $parser->parse_data($msg)
   if ( ref($msg) and ref($msg) =~ /ARRAY/ ) ;
 my $body = $entity->body();
 --- 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