perl - 如何摆脱 `Wide character in print at` ？

Question

我有文件 /tmp/xxx下一个内容:

00000000 D0 BA D0 B8 │ D1 80 D0 B8 │ D0 BB D0 B8 │ D0 BA     к и р и л и к

当我读取文件内容并打印它时，出现错误:

Wide character in print at ...

来源是:

use utf8;
open my $fh, '<:encoding(UTF-8)', '/tmp/xxx';
print scalar <$fh>

打印的输出是:

кирилик  

Answer 1

您正在打印到不需要 UTF8 的 STDOUT。
添加

binmode(STDOUT, "encoding(UTF-8)");

在已经打开的 handle 上改变它。