|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry E. Oboukhov 2:5020/830.100 31 Jan 2007 20:14:40
To : Vadim Tzirulnicov
Subject : Парсинг многокомпонентного письма
--------------------------------------------------------------------------------
>VT>> в частности, но что-то так и не понял, как решить задачу...
>> так прямо с cpan ссылки были на екзамплесы с модулями Mime::
VT>
VT> Примеры читал, но применить к решению своей задачи не смог, поэтому и создал
VT> данный топик.
и вот эти примеры тоже смотрел?
http://search.cpan.org/src/DSKOLL/MIME-tools-5.420/examples/
там же конкретно есть варианты выковыривания частей из мульта
вот например кусок оттуда
#------------------------------------------------------------
# dump_entity - dump an entity's file info
#------------------------------------------------------------
sub dump_entity {
my $ent = shift;
my @parts = $ent->parts;
if (@parts) { # multipart...
map { dump_entity($_) } @parts;
}
else { # single part...
print " Part: ", $ent->bodyhandle->path,
" (", scalar($ent->head->mime_type), ")\n";
}
}
качни их все
там от простого к сложному примеры
... Мы хлещем в жару портвейн! Мы не греем пива зимой!
--- Mutt/1.5.13 (2006-08-11)
* Origin: Debian GNU Linux (2:5020/830.100)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
