perl – 如何解析电子邮件内容

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

解决方法

见 Mail::Message – 一般消息对象
就像是,

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

或者参见Email::Simple – 简单解析RFC2822消息格式和标头.

更新：

另请参阅Email::MIME – 简单的MIME消息解析.