Perl et pièces jointes des e-mails

Pour mémoire:

• On peut composer des e-mails avec des pièces jointes en utilisant le module “MIME::Entity”.
• On peut extraire des pièces jointes avec “MIME::Parse”.

Voir package: libmime-tools-perl

Exemple rapide, avec un fichier “sample-parser.pl” composé comme suit:

#!/usr/bin/perl -w

use MIME::Parser;

$parser = new MIME::Parser || die;
$parser->extract_nested_messages(0);
$parser->output_under('./');
$parser->parse(\*STDIN) or die;

Test avec le source d'un mail dans un fichier nommé “e-mail.eml” :

$ cat e-mail.eml | perl ./sample-parser.pl

Et pouf: toutes les pièces jointes sont extraite dans un sous répertoire.
Doc: http://search.cpan.org/~dskoll/MIME-tools-5.504/lib/MIME/Parser.pm