关于如何解决Perl输出中文乱码问题

本篇文章转载自百度经验

原文：https://jingyan.baidu.com/article/4f7d5712fd36301a21192744.html

相信很多小伙伴在使用Perl语言的时候，经常会遇到这样一个问题，Perl不支持中文？perl输入或者输出中文会出现乱码。

这时怎么办呢？下面小编就教小伙伴们如何解决这个问题。

• 就以windows上的ActivePerl为例。

  小编的代码特别简单，就是一句print "你好"

  却出现了乱码，如图。

  

• 遇到这样的问题，我们要怎么办？

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

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

  可见，小编这里的windows是代号936为默认编码格式。

  

• 然后我们可以看到，936代码页对应的是gb2312（即中文），或者说是gbk。

  

• 我们知道了我们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)");

  

  

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

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

  代码如下：

  use utf8;

  use open ":encoding(gbk)",":std";

  #标准输入、输出、错误皆用gbk编码格式进行编码

  print "你好"