IMAP 客户端使用 perl 处理电子邮件

Question

我正在使用以下连接到邮件服务器并使用下面的代码获取电子邮件的主题和正文。

my $subject = $imap->subject($msg) or do { print "Error obtaining Subject of $msg : $@";  next; };

我得到如下输出。我们知道如何将输出转换为人类可读的格式吗？我尝试使用解码到 base64，但没有任何运气。请帮忙。

=?utf-8?B?UkU6IFJlYXNzaWduZWTCoHzCoFByaW9yaXR5OsKgTG93wqB8IEluY2lkZW50?==?utf-8?B?OsKgSU5DMDAwMDAwODQxMjc4wqA=?=

Answer 1

Non-ASCII header 邮件中的字段编码为 RFC 2047. It can be decoded with Encode::MIME::Header:

use Encode 'decode';
print decode('MIME-Header',
    '=?utf-8?B?UkU6IFJlYXNzaWduZWTCoHzCoFByaW9yaXR5OsKgTG93wqB8IEluY2lkZW50?=
     =?utf-8?B?OsKgSU5DMDAwMDAwODQxMjc4wqA=?=');

IMAP 客户端使用 perl 处理电子邮件

IMAP Client processing emails using perl

perl

imap