Perl - MIME::Parser
my $parser = new MIME::Parser;
$parser->output_under('/tmp');
$parser->ignore_errors(1);
$parser->decode_headers(1); // default is false. Automatically attempt RFC-1552
// to decode the MIME headers
$parser->extract_nested_message(0); // default is true
$parser->extract_uuencode(1); // default is false. Look for uuencode in "text" messages and extract it.
eval {
$entity = $parser->parse(\*STDIN);
};
if ($@) {
$result = $parser->results;
$decapitated = $parser->last_head; // get the last top-level head
}
$entity->output_dir();
$parser->last_error;
$parser->filer->purge;
page revision: 0, last edited: 13 Apr 2016 10:55