perl – 在网站上解析并显示MIME多部分电子邮件

发布时间：2020-12-15 23:34:16 所属栏目：大数据来源：网络整理

导读：我有一个原始电子邮件,(MIME多部分),我想在网站上显示这个(例如在iframe中,带有 HTML部分和纯文本部分的标签等).是否有任何CPAN模块或Template :: Toolkit插件可用于帮助我实现这一目标？目前,看起来我必须使用Email :: MIME解析消息,然后迭代所有部分,并为

我有一个原始电子邮件,(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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!