Perl/MIME编码文本问题

使用类似的模块 Email::MIME 努力工作。

use strict;
use warnings;
use Email::MIME;

my $msg = Email::MIME->new($message_text);
print $msg->body;

FWIW Email::在我正在测试的一些示例电子邮件中,MIME对我来说似乎很脆弱。Email::Parser在我试图提取可能在base64中的text/html或text/plain片段时效果更好(通常有传输编码base64/utf-8

use MIME::Parser;
use MIME::Base64;

sub flatten_parts {
    my ($mimePart, $fh) = @_;
    $fh or $fh = select;
    my $part;
    no strict 'refs';
    if($mimePart->mime_type =~ /text\/(plain|html)/i){
        my $base64=join('',@{$mimePart->body}); # This will be the base64 we're after.
        my $encoding = $mimePart->head->mime_encoding;
        if($encoding eq 'base64'){
                my $plainContent=MIME::Base64::decode_base64($base64);
                print $plainContent;
        }
    }   
    ### walk the parts:
    my @parts = $mimePart->parts;
    foreach $part (@parts) {
        flatten_parts($part, $fh);
    }
}
### Create a new parser object:
our $parser = new MIME::Parser;
### Parse an input filehandle:
$entity = $parser->parse(\*STDIN);
flatten_parts($entity);

不幸的是,如果你碰巧用UTF8格式的邮件写了一个希腊字母lambda, MIME::Parser 酒吧,似乎没有已知的解决办法,甚至没有编辑所有 *.pm 文件,添加 use utf8;

尝试在Thunderbird中打开一条新消息,附加一些文件,在正文中写入unicode字符并将其另存为 .eml MIME::分析器 会抛出错误。

另见 CPAN Bug #105377