有关UTF-16LE的问题

wyting

环境： win xp  ActivePerl 5.8.9

1. 
   
2. use Encode;
   
3. 
   
4. $a="学";
   
5. $a=decode ("gb2312",$a);
   
6. 
   
7. open(MYTEXT,'>',"2.csv") || die "Cannot open csv: $!\n";
   
8. print MYTEXT pack("H4","FFFE");
   
9. binmode MYTEXT, ":encoding(UTF-16LE)";
   
10. print MYTEXT "$a";
    
11. close(MYTEXT);
    

复制代码

问题1：使用UTF-16LE的时候那个头的 FF FE都要自己写进去吗？

1. 
   
2. use Encode;
   
3. 
   
4. $a="上";
   
5. $a=decode ("gb2312",$a);
   
6. 
   
7. open(MYTEXT,'>',"2.csv") || die "Cannot open csv: $!\n";
   
8. print MYTEXT pack("H4","FFFE");
   
9. binmode MYTEXT, ":encoding(UTF-16LE)";
   
10. print MYTEXT "$a";
    
11. close(MYTEXT);
    

复制代码

问题2：这个”上“字就有问题，因为这个上字前面两位是 0A，因为是windows，所以一到文件就自动变成了 0D 0A (\r\n),这问题怎么解决呢？

谢谢！

wyting

1. 
   
2. use Encode;
   
3. 
   
4. $a="上";
   
5. $a=encode("UTF-16LE",decode ("gb2312",$a));
   
6. 
   
7. open(MYTEXT,'>',"2.csv") || die "Cannot open csv: $!\n";
   
8. print MYTEXT pack("H*","FFFE");
   
9. binmode MYTEXT;
   
10. print MYTEXT "$a";
    
11. close(MYTEXT);
    

复制代码

第二个问题自己搞定了。