佩尔 | IMAP 文件夹编码。 UTF8 -> UTF7 -> UTF8 = 失败

Question

我需要有关 imap 文件夹编码的建议。

我是由我的邮件客户端 (Thunderbird) 创建的带有俄语符号的 imap 文件夹。

文件夹名称是 - Проверка

文件系统上的文件夹名称是 - user.mylogin.&BB8EQAQ+BDIENQRABDoEMA-

我为 convert (perl v5.10.1) 编写了这段代码

use strict;
use warnings;
use utf8;
use Encode::IMAPUTF7;

my $folder=$ARGV[1];

binmode(STDOUT,':utf8');

if ($ARGV[0] eq 'to')
    { print Encode::IMAPUTF7::encode('IMAP-UTF-7', $folder) }
    elsif ($ARGV[0] eq 'from')
    { print Encode::IMAPUTF7::decode('IMAP-UTF-7', $folder) }
print "\n";

尝试将文件夹名称转换为俄语

[w@pandora6 tmp]$ ./imapfolder.pl from '&BB8EQAQ+BDIENQRABDoEMA-'
Проверка

一切正常

尝试反向转换

[w@pandora6 tmp]$ ./imapfolder.pl to Проверка
&ANAAnwDRAIAA0AC+ANAAsgDQALUA0QCAANAAugDQALA-

嗯..我期待&BB8EQAQ+BDIENQRABDoEMA-

好的，编码回来

[w@pandora6 tmp]$ ./imapfolder.pl from '&ANAAnwDRAIAA0AC+ANAAsgDQALUA0QCAANAAugDQALA-'
ÐÑовеÑка

WTF？我预计 Проверка

出了什么问题？

Answer 1

你被其中一个 many gotchas of Unicode in Perl 捕获了. use utf8 仅 打开 UTF-8 语法。这意味着诸如常量 字符串、变量名和函数名之类的东西将采用 UTF-8。其他一切都不会。特别是 @ARGV 中的字符串将不是 UTF-8。这些仍然是纯字节。

幸运的是，有一个简单的修复方法。使用 utf8::all .这将启用您希望使用 utf8 执行的所有 UTF-8 功能。

• 使 @ARGV 以 UTF-8 编码(当从主包使用 utf8::all 时)。

• 文件句柄默认打开 UTF-8 编码(包括 STDIN、STDOUT、STDERR)。如果您不想为特定文件句柄使用 UTF-8，则必须设置 binmode $filehandle。

• charnames 被导入，因此\N{...} 序列可用于根据名称编译 Unicode 字符。

• readdir 现在返回 UTF-8 字符而不是字节。

• glob 和 <> 运算符现在返回 UTF-8 字符而不是字节。

您的代码被简化为...

use strict;
use warnings;
use utf8::all;
use Encode::IMAPUTF7;

my $folder=$ARGV[1];

if ($ARGV[0] eq 'to') {
    print Encode::IMAPUTF7::encode('IMAP-UTF-7', $folder)
}
elsif ($ARGV[0] eq 'from') {
    print Encode::IMAPUTF7::decode('IMAP-UTF-7', $folder)
}
print "\n";