http://bbs.chinaunix.net/thread-1857627-1-1.html

同学们近期编码问题很多，稍微总结下。

Windows的终端环境是GBK吧，读取UTF-8的 编码，自然会乱码。

比如文件abc.txt是UTF-8格式的，那么如何读取它 呢？

第一种方式：

使用带encoding参数的open打开和读入文件，并转换成gb2312输出：

  1. use strict;
  2. use Encode;
  3.  
  4. open HD,"<:encoding(UTF-8)","abc.txt" or die $!;
  5. while(<HD>) {
  6.         print encode("gb2312",$_);
  7. }
  8. close HD;
复制 代码

如上代码，<:encoding(UTF-8)表明在open时，已识别并转换了读入文件的UTF-8编码。


然后print encode("gb2312",$_)将内容用gb2312编码输出，这样就正确显示了。




第二种方式：



使用Encode模块的decode函数自己处理转换，如下：

  1. use strict;
  2. use Encode;
  3.  
  4. open HD,"abc.txt" or die $!;
  5. while(<HD>) {
  6.         print encode("gb2312",decode("utf8",$_));
  7. }
  8. close HD;
复制 代码

用普通的open打开文件，然后对文件的每一行，先用decode将内容转换成

perl

内部的编码格式（它的作用相当于open with "<:encoding(UTF-8)"）。


然后，再调用encode将转换后的内容，以gb2312编码进行输出，这样也显示正常。




其他方式。。待总结。


其他编码之间转换，也按此类推。

-------------------------------------------

perl linux-windows socket中文字符有问题，使用第二种方式解决了