|
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) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.linux/6325c0646984.html, оценка из 5, голосов 10
|