Perl 如何解析电子邮件内容

如何将电子邮件解析为标题、正文、附件、发件人和收件人等部分？ 我想使用Perl或Perl Moose？

请参阅-常规消息对象 大概

my $msg =Mail::Message->new($mail);
my $body    = $msg->body;
my @to      = $msg->to;
my @from    = $msg->from;

或者请参阅-RFC2822消息格式和头的简单解析

更新：

---

另请参见-简易MIME消息解析。

多部分消息的Mail:：message接口（Juff称之为“附件”）使用起来非常复杂。我建议改为从Email:：Simple派生的邮件。@daxim：是的，很好，我也应该在我的答案中添加

Email:：MIME

。在这个上下文中“$mail”是什么？构造函数似乎采用了很多不同的选项，但不清楚如何将完全构造好的电子邮件（一个简单的字符串）转储到其中。$mail是一个原始邮件消息，您可以从maildir获取，一个非常长的字符串，没有问题。