> первая ссылка:
> http://users.livejournal.com/dy_/6259.html Благодарю, я неверно стало быть формулировал запрос к гуглу.
Вопрос можно считать закрытым - зацепки есть.
И вот еще - сейчас смотрю в сторону Mail::Box - нашел еще пример в недрах исходников, может кому пригодится:
foreach my $message ($folder->messages)
{ printf "%3d. %s\n", $message->seqnr, $message->subject;
$message->printStructure;
my $m = $message->clone;
unless($m->isMultipart)
{ $outbox->addMessage($m);
next;
}
foreach my $part ($m->parts)
{
# Strip attachments larger than 16K. Another example would be:
# next if $part->body->mimeType ne 'text/plain';
next unless $part->body->size > 16384;
print "\n**** Stripping Attachment "; # ,$part->head,"\n";
# Warning: double names possible! Put each message in seperate dir
my $attachment = $part->body->dispositionFilename($attachments);
print $attachment,"\n";
unless(-f $attachment) # Write attachment to file
{ open(FH, '>', $attachment)
or die "ERROR: cannot write attachment to $attachment: $!\n";
$part->decoded->print(\*FH);
close(FH)
or die "ERROR: writing to $attachment: $!\n";
}
$part->delete;
}
$outbox->addMessage($m);
}
$mgr->closeAllFolders;