perl - 如何从 Perl 输出 UTF-8？

Question

我正在尝试使用 utf8 pragma 编写 Perl 脚本，但得到了意外的结果。我使用的是 Mac OS X 10.5 (Leopard)，并使用 TextMate 进行编辑。我的编辑器和操作系统的所有设置都默认以 utf-8 格式写入文件。

但是，当我将以下内容输入到文本文件中，将其另存为“.pl”并执行它时，我会得到友好的“带问号的菱形”来代替非 ASCII 字符。

#!/usr/bin/env perl -w

use strict;
use utf8;

my $str = 'Çirçös';
print( "$str\n" );

知道我做错了什么吗？我希望在输出中得到“Çirçös”，但我得到的是“�ir��s”。

Answer 1

use utf8; 不启用 Unicode 输出 - 它允许您在程序中键入 Unicode。将其添加到程序中的 print() 语句之前:

binmode(STDOUT, ":utf8");

看看是否有帮助。这应该使 STDOUT 输出为 UTF-8，而不是普通的 ASCII。