解决方法
见
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消息解析.