我有一个原始电子邮件,(MIME多部分),我想在网站上显示这个(例如在iframe中,带有
HTML部分和纯文本部分的标签等).是否有任何CPAN模块或Template :: Toolkit插件可用于帮助我实现这一目标？
目前,看起来我必须使用Email :: MIME解析消息,然后迭代所有部分,并为所有不同的mime类型编写处理程序.
这是一个很长的镜头,但我想知道是否有人已经完成了这一切？如果我自己尝试,那么编写处理程序将是一个漫长且容易出错的过程.
谢谢你的帮助.
解决方法
这对我来说听起来不是一件困难的事：
use Email::MIME;
my $parsed = Email::MIME->new($message);
my @parts = $parsed->parts; # These will be Email::MIME objects,too.
print <<EOF;
<html><head><title>!</title></head><body>
EOF
for my $part (@parts) {
my $content_type = $parsed->content_type;
if ($content_type eq "text/plain") {
print "<pre>",$part->body (),"</pre>\n";
}
elsif ($content_type eq "text/html") {
print $part->body ();
}
# Handle some more cases here
}
print <<EOF;
</body></html>
EOF