如何使Perl正确解释Unicode字节？

Question

我有一个非常糟糕的文件,充满了unicode字节,我正在努力清理.该文件中的一些示例如下:

????
roler coaster
digital social party
big bellie
cornacopia
\xd0\xb7\xd1\x83\xd0\xb1\xd0\xbd\xd0\xb0\xd1\x8f \xd1\x89\xd0\xb5\xd1\x82\xd0\xba\xd0\xb0

现在,我想要做的是将所有那些丑陋的字节点转换为真正的unicode文本.所以,上面将输出为:

????
roler coaster
digital social party
big bellie
cornacopia
?????? ?????

我一直在敲打我的头,反对如何在Perl中这样做一个小时,我现在已经没有好主意了.如果你有一个,我很乐意听到它.

Answer 1

这是UTF-8

$ perl -E'
    use open ":std", ":locale";
    use Encode qw( decode );
    $_ = q{\xd0\xb7\xd1\x83\xd0\xb1\xd0\xbd\xd0\xb0\xd1\x8f }.
         q{\xd1\x89\xd0\xb5\xd1\x82\xd0\xba\xd0\xb0};
    s/\\x(..)/chr hex $1/seg;
    $_ = decode("UTF-8", $_);
    say;
'
?????? ?????