如何编码perl中的邮件主题? [英] How to encode mail subject in perl?
问题描述
现在我终于找到了一些东西,但仍然没有工作:
使用MIME :: Words qw / encode_mimewords /;
$ recipientsubject = encode_mimewords('Votre fichier a bienétéenvoyé');
但是(bugged)的结果是:
< blockquote>
主题:Votre fichier a bien =?ISO-8859-1?Q?= E9t = E9?= = ISO-8859-1?Q?envoy = E9?=
其中显示:
Votre fichier a bienétéenvoyé
(它吃了一些空格)
使用编码,它是一个核心模块。
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'说解码(MIME-H eader,=?UTF-8?Q?Votre = 20fichier = 20a = 20bien = 20?= =?UTF-8?Q?= C3 = A9t = C3 = A9 = 20envoy = C3 = A9?=
/ pre>
perl -C -MEncode -E'say decode(MIME-Header,=?UTF-8?B?Vm90cmUgZmljaGllciBhIGJpZW4gw6l0w6kgZW52b3nDqQ ==?=)'
哪些将打印:
Votre fichier a bienété envoyé
如果您仍然有相同的结果,您应该提供有关您的Perl环境的更多信息。该版本是一个很好的开端。
How to encode mail subject in perl ?
Now I finally found something but it's still not working :
use MIME::Words qw/encode_mimewords/; $recipientsubject = encode_mimewords('Votre fichier a bien été envoyé');
But the (bugged) result is :
Subject: Votre fichier a bien =?ISO-8859-1?Q?=E9t=E9?= =?ISO-8859-1?Q?envoy=E9?=
Which displays :
Votre fichier a bien étéenvoyé
(It eats some spaces)
解决方案Use Encode, it is a core module.
perl -Mutf8 -MEncode -E 'say encode("MIME-Header", "Votre fichier a bien été envoyé")'
… will output either one of:
=?UTF-8?Q?Votre=20fichier=20a=20bien=20?= =?UTF-8?Q?=C3=A9t=C3=A9=20envoy=C3=A9?= =?UTF-8?B?Vm90cmUgZmljaGllciBhIGJpZW4gw6l0w6kgZW52b3nDqQ==?=
And decode with:
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==?=")'
Which will print:
Votre fichier a bien été envoyé
If you still have the same results, you should give more information on your Perl environment. The version is a good starter.
这篇关于如何编码perl中的邮件主题?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!