ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Victor Nosov                         2:5020/400     14 Jun 2000  21:46:04
 To : All
 Subject : MIME::Parser
 -------------------------------------------------------------------------------- 
 

 Привет!
 Задача: разобрать почту с аттачами
 Делаю:
 use Mail::POP3Client;
 use MIME::Parser;
 
  $parser = new MIME::Parser;
 
  $pop = new Mail::POP3Client( USER     => "user",
                               PASSWORD => "topsecret",
                               HOST     => "pop.mail.ru );
 
   for ($i = 1; $i <= $pop->Count(); $i++)
    $entity=$parser->parse_data($pop->Body($i));
   }
 выходит файл msg--224901-1 с содержанием:
 --_----------=_960457288-2098810
 Content-Disposition: inline; filename="osh_6666_2000.dat"
 Content-Length: 115
 Content-Transfer-Encoding: binary
 Content-Type: text/plain; name="osh_6666_2000.dat"
 <...далее текст...>
 
 Вопрос: что делать чтобы создавались нужные файлы а не оставалось все
 смешанным?
 Или вручную?
  RTFM прошел.
 --- ifmail v.2.15dev5
  * Origin: MTU-Intel ISP (2:5020/400)
 
 

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