blog:2013:10:11:perl_et_pieces_jointes_des_e-mails
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
blog/2013/10/11/perl_et_pieces_jointes_des_e-mails.txt · Dernière modification : 2013/10/11 14:05 de thierry