split 中文的问题（已解决）

shuijingfei

各位好
    今天在测试split中文的时候，print出来的总是乱码，求帮忙


   1 环境描述
     程序是在window7的DOS下运行的，在DOS下使用chcp，可知操作系统的格式是gb2312,我的程序文件以utf-8的格式保存
   2 程序如下
     use Encode;
$dat="测试文本";
$str=decode("UTF-8",$dat);
@chars=split //,$str;
foreach $char (@chars) {
print encode('gb2312',decode('gb2312',encode("UTF-8",$char))),"\n";
}
   3 以上程序print之后，都是乱码


求各位大拿指点一二啊


====================================================
把输出直接改写成
print encode('gb2312',$char),"\n";
之后 输出就不是乱码了
O(∩_∩)O哈哈哈~

兰花仙子

1. use strict;
   
2. use encoding "utf8", STDOUT => 'gbk';
   
3. 
   
4. my $char = "测试字符";
   
5. my @array = split//,$char;
   
6. print "$_\n" for @array;

复制代码

C:\Perl>perl split.pl
测
试
字
符