如何对电子邮件地址中的特殊字符进行编码

Question

电子邮件地址不仅包含以下部分：

localpart@domain.tld

下一行的完整字符串（包括引号之间的部分、引号本身和尖括号）也是有效地址：

“John Doe”

当我用我自己的名字替换“John Doe”时，我会得到一个地址，我可以输入我的电子邮件客户端而不会收到任何投诉（注意 »ö« 在我的姓氏是非 ASCII 字符）：

“Hubert Schölnast”

看来（对于 Thunderbird 等标准电子邮件客户端的用户而言），引用部分中的特殊字符似乎是可以的。

但是当我使用 cpan-module Email::Valid 在 perl 脚本中检查这个完整的电子邮件地址时，我收到一个错误，说这个地址不符合 rfc822 的规则，并且该模块的文档说，rfc822 不允许在电子邮件地址的任何部分中使用任何非 ascii 字符。 （当我省略字母 ö 或将其替换为 ascii 字母时，支票表明地址有效。）

显然，任何电子邮件客户端在向 smtp 服务器发送电子邮件之前都必须对电子邮件地址进行编码，并且在收到新电子邮件时必须对其进行解码并将标题信息显示给用户。但我不知道这是怎么做到的，而且我确实在谷歌上尽了最大努力。

我需要这种编码算法，因为我想编写一个 perl 脚本，它接受任何有效的电子邮件地址（在引用部分中也包含特殊字符），然后将电子邮件发送到这些地址。

Answer 1

Perl 核心有Encode.pm:

#!/usr/bin/perl
use strict;
use warnings;
use Encode;

my $from_header = decode_utf8 q{From: "Hubert Schölnast" <localpart@domain.tld>};
print encode('MIME_Header', $from_header);

1;
__END__
From: "=?UTF-8?B?SHViZXJ0IFNjaMO2bG5hc3Q=?=" <localpart@domain.tld>

RFC822/2822 背后有很多要求，这使得处理电子邮件变得困难。

RFC2822 还禁止消息中的每一行超过 998 个字符。 长行必须通过缩进续行来拆分为多行。

这意味着当我们修改它们时，我们必须注意行长度，只是在转换特殊字符并添加标题标签之后。

Answer 2

使用MIME::Words 对地址、主题等进行编码或解码。

例如创建电子邮件时：

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use MIME::Words qw{ encode_mimeword };

my $encoded = encode_mimeword('Hubert Schölnast');

要使用地址对名称进行编码，请使用encode_mimewords。

处理电子邮件时，请改用decode_mimewords。