Perl 输出中文乱码问题解决方法

导读 很多小伙伴在使用 Perl 语言的时候,经常会遇到这样一个问题,Perl 不支持中文?perl 输入或者输出中文会出现乱码。这时怎么办呢?

Perl 输出中文乱码问题解决方法

方法/步骤

就以 windows 上的 ActivePerl 为例。

代码特别简单,就是一句:

print "你好";

却出现了乱码,如图。
Perl 输出中文乱码问题解决方法

遇到这样的问题,我们要怎么办?

其实就是 perl 编码的问题,这其实和我们操作系统的编码有关。

我们打开 cmd 命令提示符,输入 chcp 获得编码类型代码。

可见,这里的 windows 是代号 936 为默认编码格式。
Perl 输出中文乱码问题解决方法

然后我们可以看到,936 代码页对应的是 gb2313(即中文),或者说是 gbk。
Perl 输出中文乱码问题解决方法

我们知道了我们 windows 是用 gb2312 编码的,这时我们只要改变编码格式即可。

在代码头部输入:

use utf8;
#引入utf8模块 脚本内的字符串使用utf8作为编码格式
binmode(STDOUT,":encoding(gbk)");
#标准输出使用gbk作为编码格式,也可以把gbk改为gb2312
binmode(STDIN,":encoding(gbk)");
#如果涉及到输入流,例如读文件,不加这条读中文文件会出现乱码
binmode(STDERR,":encoding(gbk)");
#如果异常错误中的字符串有中文,请加上STDERR,否则也会出现乱码
print "你好";

此时是不是就能正常输出中文了呢?

一定要注意一点,如果代码涉及到读取中文的文件,一定要加 上binmode(STDIN,”:encoding(gbk)”);。
Perl 输出中文乱码问题解决方法
Perl 输出中文乱码问题解决方法

还有一种方法,针对我们 STDIN、STDOUT、STDERR(即标准输入、标准输出和标准错误)统统使用某种编码作为编码格式。

还是那个简单的小程序,print 输出一个中文。

代码如下:

use utf8;
use open ":encoding(gbk)",":std";
#标准输入、输出、错误皆用gbk编码格式进行编码
print "你好";

Perl 输出中文乱码问题解决方法
Perl 输出中文乱码问题解决方法

原文来自:https://www.runoob.com/w3cnote/perl-output-chinese.html

本文地址:https://www.linuxprobe.com/perl-output-chinese.html编辑:王艳敏,审核员:逄增宝

Linux命令大全:https://www.linuxcool.com/

© 版权声明
THE END
喜欢就支持一下吧