ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel Ammosov                        2:5020/52      30 Jun 2001  05:48:06
 To : Marat Gizatullin
 Subject : Re: почта
 -------------------------------------------------------------------------------- 
 

 
 MG>Hello All!
 
 MG>надо pаботать с почтой под фpи
 MG>есть письмо лежащее в /var/mail
 
 MG> From: "Marat Gizatullin" <marat@mari-el.ru>
 MG>To: =?koi8-r?B?9MXT1MnS1cXN2co=?= <tmp1@host>
 MG>Cc: "Marat" <marat@host>
 
 MG>ниже следующим скpиптом я получаю вот это
 
 MG>From: "Marat Gizatullin"
 MG>To: =?koi8-r?B?9MXT1MnS1cXN2co=?=
 MG>Cc: "Marat"
 
 Куда-то сами адреса у тебя отрезались...
 
 Из From: "Marat Gizatullin" <marat@mari-el.ru>  выдернуть 
 адрес можно при помощи Mail::Address:
 (parse возвращает список из адресов, поэтому там цикл)
 
 #!/usr/bin/perl -w
 use strict;
 use Mail::Address;
 
 my $from = '"Marat Gizatullin" <marat@mari-el.ru>';
 my @addrs = Mail::Address->parse($from);
 for my $addr (@addrs) {
   print $addr->address,"\n";
 }
   
 из =?koi8-r?B?9MXT1MnS1cXN2co=?= получить "Тестируемый" можно при помощи 
 MIME::Words - 
 http://isabase.philol.msu.ru/~apavel/ruperl/ru-perl-faq-4.html#ss4.6
 
 -- 
 Pavel Ammosov                                               O    \
 apavel@aha.ru                                                 __  )
 http://isabase.philol.msu.ru/~apavel/                             )
 wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka    O    /
 
 --- FIDOGATE 4.4.0-snp10
  * Origin: Zenon N.S.P. news server (2:5020/52.0)
 
 

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

Тема:    Автор:    Дата:    почта   Marat Gizatullin   29 Jun 2001 23:08:33   Re: почта   Pavel Ammosov   30 Jun 2001 05:48:06