ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Mykola Dzham                         2:5020/400     26 Jan 2005  23:56:04
 To : Sergey Titow
 Subject : Re: скрипты wanted
 -------------------------------------------------------------------------------- 
 

  Sergey Titow wrote:
 
 > Hадобно в скрипте выделить из тела емейла аттачмент.
 > Тело поступает на stdin
 > Содержимое и тип аттачмента заранее не известны.
 > 
 > Может, кто поделится? :)
 
 #!/usr/bin/perl -w
 
 use MIME::Tools;
 use MIME::Decoder;
 use MIME::Parser;
 
 my $e = new MIME::Parser;
 
 $e->output_to_core(1);
 
 my $inmsg = $e->parse(\*STDIN)
 
 foreach my $part ($inmsg->parts) {
   next if $part->head->get('Content-Type') =~ m/^text/i ;
   my $part_headline = $part->head->get('Content-disposition');
   next if !$part_headline;
   next if ( $part_headline !~ m/filename="(.*)"/ );
   $part_headline = $1;
   my $filename = decode_mimewords($part_headline);
   my $io = $part->open('r');
   open( RESF , ">${filename}" );
   while (my $line = $io->getline ) {
    print ( RESF $line);
   }
   close( RESF );
 }
 
 Вот. Писалось выдиранием нужных строк из работующего скрипта (но со
 значительно болшей функциональностью).
 Проверку ошибок и дополнительную функциональность дописать по вкусу.
 
 -- 
 LEFT-UANIC
 JID: levsha@jabber.kiev.ua
 --- ifmail v.2.15dev5.3
  * Origin: National Taras Shevchenko University of Kyiv (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    скрипты wanted   Sergey Titow   26 Jan 2005 23:34:43   Re: скрипты wanted   Mykola Dzham   26 Jan 2005 23:56:04   Re: скрипты wanted   Victor Wagner   27 Jan 2005 00:29:03