ReLoad

Thierry Jaouen ~ WikiBlog
"Rien à foutre d'être lu, tant que je peux me relire."

Outils pour utilisateurs

Outils du site


Action disabled: source
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