用split分割句子中的中文字符，本地两台机器完全没有问题，服务器死活都是乱码(这台机器默认编码的确是gbk)
后来做个尝试，句子decode，如果需要分割符，分隔符也要decode，输出的时候要encode，就正常了。
中间状态时乱码，那是perl自己认识的字节流，始、终状态是字符串。
- use strict;
- use Encode;
- #输入文件是GBK编码
- open(In,"<$ARGV[0]");
- while(<In>){
- chomp();
- if($_ eq ""){
- next;
- }
- print "$_\n"; #可视正常
- my $char =decode('gbk',$_);
- print"$char\n"; #不可视，乱码
- my @array = split//,$char;
- my $tmp=encode('gbk',$array[0]);
- print "$tmp\n";#可视，正常
- print "\n";
- }
- close(In);
湘公网安备 43102202000103号
