中文转码的问题

shuijingfei

情况描述
     我在linux系统上将utf-8转成gbk，print出的是乱码
     
       use Encode ;
          my $str=encode("gbk", decode("utf-8", '阿打发打发'));
   
          print $str ;


      但是将gb2312转成gbk却能正常输出

       use Encode ;
          my $str=encode("gbk", decode("gb2312", '阿打发打发'));
   
          print $str ;



望高手给指点下

轻拍

      

ziyunfei

源文件是什么编码 就decode什么

yybmsrs

将代码转为utf8

shuijingfei

回复 3# yybmsrs


是这样转吗？
    use utf8 ;
use Encode ;
my $str=encode("gbk", decode("utf-8", '阿打发打发'));
   
print $str ;



执行的时候会报错：Cannot decode string with wide characters at /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/Encode.pm line 173.
   

yybmsrs

回复 4# shuijingfei


    不是  把源代码的编码转为utf8   

shuijingfei

回复 5# yybmsrs

恩，现在已经可以了 。

不过，我是用下面的方式转的
vi vi test_split2.pl (程序名)


然后  :set fileencoding=utf-8
不知道有什么更快的方法

   

shuijingfei

回复 2# ziyunfei

恩 ，谢了

已经可以了


   

shuijingfei

回复 5# yybmsrs


谢谢了

指点了让我头疼的事