ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Michael Poliakov                     2:5020/400     22 May 2001  11:27:46
 To : All
 Subject : Re: e-mail & SMS
 -------------------------------------------------------------------------------- 
 

 On Mon, 21 May 2001 18:01:26 +0400, Andrew Barcari
 <Andrew.Barcari@f100.n469.z2.fidonet.org> wrote:
 
 >Есть проблема, допустим я ISP, хотя это не так, нужно когда конкретному юзеру
 >приходит в почтовый ящик мыло выдрать из него From и Subj которые потом
 >перешлются ему как SMS.
 
 Посылаешь приходящую почту через пайп на скрипт, в котором делаешь разбор.
 Если просто From и Subject выдрать - простые регулярные выражения и вперед. Если
 еще какая алхимия нужна с разбором писем - используй MIME::Parser из MIME-tools.
 
 use MIME::Parser;
 
 # если надо работать с кириллицей
 use Lingua::DetectCharset;
 use Convert::Cyrillic;
 
 # удобно обрабатывать адрес
 use Mail::Address;
 
 # и потом
 
     my $parser      = MIME::Parser->new;
     my $ent         = undef;
     my $head        = undef;
     my ($from, $to, $subject, $date);
 
     $parser->decode_headers(1);
     $parser->extract_uuencode(1);
     
     eval { $ent = $parser->read(\*STDIN) };
     if ($@) { biliat("Couldn't parse MIME stdin stream: $parser->last_error");
 die; }
 
     $head = $ent->head;
     $head->decode;
     $head->unfold;
 
     $from    = $head->get('from');
     $to      = $head->get('to');
     $subject = $head->get('subject');
     $date    = $head->get('date');
 # ну и что тебе дальше надо
 Правда, это офтопик здесь, наверное.
 
 Michael Poliakov
 --- ifmail v.2.15dev5
  * Origin: Nizhniny Novgorod Information Networks (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    e-mail & SMS   Andrew Barcari   21 May 2001 19:01:26   Re: e-mail & SMS   Michael Poliakov   22 May 2001 11:27:46   Re: e-mail & SMS   Artem Chuprina   22 May 2001 11:29:49