即使要求使用 UTF-8 对其进行编码，Perl output 仍无法读取

Question

正如我的问题的标题所示，我使用 Perl 进行一些与正则表达式相关的查询。 但是，我在正文中使用带有变音符号的 UTF8 编码输入，当我生成 output 时，它始终是UTF-16 LE / UCS-2 LE BOM编码的。

我的主要问题是输入中的变音符号被替换为'??' 在 output 中。 我认为这个问题在于编码。 我试图剥离很多可能导致我的问题的代码，但问题仍然存在。

这是我的代码：

# Input = élèvàtòr ôpëràtör
# Output = ??l??v??t??r ??p??r??t??r

use utf8;
use open qw(:std :utf8);

    {
    while (<STDIN>)
        {
        $line = $_;

        # remove long span (), <>
        $line =~ s/[\(\)]//g;

        # remove long span [] with everything in between
        while ($line =~ s/\[[^\[\]]*\]//g) {;}
        while ($line =~ s/\<[^\<\>]*\>//g) {;}

        printf("$line");
        }
    }

关于本网站上类似问题的其他几个答案的建议，我已经多次更改：

我试过这个选项：

use utf8;  # Source is encoded using UTF-8
use open ':std', ':encoding(locale)';

这导致我的 CLI 声明

Cannot find encoding "locale" at /usr/share/perl5/core_perl/open.pm line 126.
Cannot find encoding "locale" at /usr/share/perl5/core_perl/open.pm line 134.

我还尝试在我的 CLI 中运行在命令末尾标记的以下选项：

-CDSL -le 'print "\x{1815}"'
-CO

我在代码中输入的更多行没有成功：

binmode(STDOUT, ":utf8");
use open ":encoding(utf8)";
use open IN => ":encoding(utf8)", OUT => ":utf8";

也有人建议使用

'环境'

但我找不到任何关于我将如何做到这一点的信息。 他建议的代码是：

export PERL_UNICODE=SDL

但我不知道在哪里放置或更改它。

我希望有人可以帮助我解决这个问题。

Answer 1

您显示的 output 似乎不是您声称的 UTF-16 或 UCS-2。 （太少了? 。）也没有 BOM 的证据。

另一方面，output 与 UTF-8 一致。 é 、 è 、 à 、 ò 、 ô 、 ë 、 à和ö都使用 UTF-8 编码为两个字节。

Perl 完全按照您的要求进行操作，但是您正在使用需要不同编码的工具或终端查看 UTF-8。 您需要为您的工具或终端提供正确的编码，或者调整您的工具或终端的期望。

例如，您可以使用chcp 65001告诉 Windows 控制台期待 UTF-8。

由于您完全没有提供有关您的工具或终端的信息，因此我们可以提供帮助。