使用perl解析電子郵件正文

Question

這是我的perl代碼：

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

print $body;

結果是

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

要么

    --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-- 

我只想檢索沒有標題的郵件正文。

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

任何想法？ 沒有正則表達式..

謝謝

Answer 1

我認為Email::MIME符合要求。 它是Email::Simple的更高級版本。