Parse le corps de l'email en utilisant perl

Question

Ceci est mon code perl:

my $email = Email::Simple->new($brutEmail); 
my $body = $email->body; 

print $body; 

Et le résultat est

--0016364d2ceb8da59d048be66a88 Content-Type: text/plain; charset=ISO-8859-1 Mail content email contents email contentss 
emails contentsss emmails contentsssss emmmail cccontent 
    --0016364d2ceb8da59d048be66a88-- 

Ou

--0016364d2ceb8da59d048be66a88 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable eMail 
content eMail content eMail content eMail content eMail content eMail content 
    --0016364d2ceb8da59d048be66a88-- 

Je veux juste récupérer le corps du message sans les en-têtes.

eMail content eMail content eMail content eMail content eMail content eMail content 

Une idée? sans regexp ..

Thx

Answer 1

Je pense que Email::MIME correspond à la facture. C'est une version plus avancée de Email::Simple.