perl - 如何在 perl 中编码邮件主题？

Question

如何在 perl 中编码邮件主题？

现在我终于找到了一些东西，但它仍然无法正常工作:

use MIME::Words qw/encode_mimewords/;
$recipientsubject = encode_mimewords('Votre fichier a bien été envoyé');

但是(错误的)结果是:

Subject: Votre fichier a bien =?ISO-8859-1?Q?=E9t=E9?= =?ISO-8859-1?Q?envoy=E9?=

显示:

Votre fichier a bien étéenvoyé

(它吃掉一些空间)

Answer 1

使用Encode ，它是一个核心模块。

perl -Mutf8 -MEncode -E 'say encode("MIME-Header", "Votre fichier a bien été envoyé")'

... 将输出以下任一项:

=?UTF-8?Q?Votre=20fichier=20a=20bien=20?= =?UTF-8?Q?=C3=A9t=C3=A9=20envoy=C3=A9?=
=?UTF-8?B?Vm90cmUgZmljaGllciBhIGJpZW4gw6l0w6kgZW52b3nDqQ==?=

并解码:

perl -C -MEncode -E 'say decode("MIME-Header", "=?UTF-8?Q?Votre=20fichier=20a=20bien=20?= =?UTF-8?Q?=C3=A9t=C3=A9=20envoy=C3=A9?=")'
perl -C -MEncode -E 'say decode("MIME-Header", "=?UTF-8?B?Vm90cmUgZmljaGllciBhIGJpZW4gw6l0w6kgZW52b3nDqQ==?=")'

这将打印:

Votre fichier a bien été envoyé

如果您仍然有相同的结果，您应该提供有关您的 Perl 环境的更多信息。该版本是一个很好的入门。