perl - 如何在我的 Pearl 源代码中嵌入汉字？

Question

在我的脚本中，我需要将一些汉字“qw”成一个字符串。当我运行脚本时， perl 提示脚本中有无法识别的字符。虽然知道肯定和encode相关的东西有关，但是不知道怎么解决。所以向你寻求帮助。

提前致谢。

Answer 1

在 Perl 源代码中嵌入文字字符串很容易。使用 utf8 pragma。 ( Do not use the encoding pragma ，问题很大。)

use utf8;
my $perl_string = '你好，张ＨＹ';

您的文本编辑器也必须将此文件另存为 UTF-8。

然后，如果你想输出Perl字符串，你必须先对它们进行编码，见perlunitut和 perlunifaq .

use Encode qw(encode);
use Encode::HanExtra;
# for example, printing to STDOUT

print encode('UTF-8', $perl_string); # in a Linux environment
print encode('GB18030', $perl_string); # in a Windows environment

我还想告诉你，从2006年开始支持国家标准GB18030对于中国的所有软件产品都是强制性的 - 您必须安装 Encode::HanExtra来自 CPAN。