perl中的转码问题

  1 #!/usr/bin/perl -w
  2 use Encode;
  3 open File,"  4 while () {
  5 $a=decode(utf8,$_);     ======先解码，成为perl 能识别的字节流
  6 print "$a\n========\n";
  7 $b=encode(gb2312,$a);   =======把字节流编码为gb2312格式，进行输出
  8 print $b;
  9 }

 

 

注：perl不能自动识别文本的编码方式，转码的时候需要先制定读入的编码方式，使之成为perl能接收的字节流，然后通过decode制定输出的编码方式，来实现转码