perl - 如何使用 UTF8 制作 Perl 代码 DWIM？

Question

文件句柄上的 utf8 pragma 和 utf8 编码让我感到困惑。例如，这个看似简单的代码......

use utf8;
print qq[fü];

需要明确的是，“fü”上的十六进制转储是 66 c3 bc如果我没记错的话，这是正确的 UTF8。

打印 66 fc这不是 UTF8，而是 Unicode 或者可能是 Latin-1。关闭 use utf8我得到 66 c3 bc .这与我所期望的相反。

现在让我们添加文件句柄 pramgas。

use utf8;
binmode *STDOUT, ':encoding(utf8)';
print qq[fü];

现在我得到 66 c3 bc .但删除 use utf8我得到 66 c3 83 c2 bc这对我没有任何意义。

使用 UTF8 使我的代码 DWIM 正确的做法是什么？

PS 我的语言环境设置为“en_US.UTF-8”和 Perl 5.10.1。

Answer 1

use utf8;声明您的源代码以 UTF8 编码。通过添加

binmode *STDOUT, ':encoding(utf8)';
print qq[fü];

您要求脚本的输出也以 UTF8 编码。

如果你写过

print "f\x{00FC}\n";

你不需要 use utf8; .