perl截取中文为何是乱码

FOR

perl截取中文为何是乱码
a.txt中是中文,我想对它进行截取,可发现截取的为奇数时乱码,该如何处理?

1. open var,"<a.txt";
   
2. foreach (<var>) {
   
3.         print substr($_,1);
   
4. }

复制代码

sxw

需要加载 Encode模块，不知道你的原文件是什么格式的？权当utf-8吧
仅是思路，不知道对不。

1. 
   
2. use Encode;
   
3. open var,"<a.txt";
   
4. 
   
5. foreach (<var>) {
   
6.        $_=encode("utf-8",$_);
   
7.         print substr(decode("gb2312",$_),1);
   
8. 
   
9. }
   
10. 
    

复制代码

523066680

楼主需要弄清楚文本保存的时候的各种编码格式的区别
（反正就是要跨越文字编码这道坎）

对a.txt 右键另存的时候可以看到是 ANSI 还是 UTF8 还是 UTF16LE / UTF16BE

假设终端是WINDOWS的，对应CP936编码，现在要读取并显示UTF8文本并显示，可以：

1. use Encode;
   
2. open READ,"<:encoding(utf8)", "a.txt";    #按utf8编码解读，变成unicode通用码
   
3. foreach (<READ>) {
   
4.     print encode('cp936', $_);            #将通用码转为CP936以对应终端编码
   
5. }
   

复制代码

:encoding(utf8) 这样的用法好像叫做 IO Layer，可以在perlmonks查一下