Board logo

标题: [问题求助] perl截取中文为何是乱码 [打印本页]
作者: FOR    时间: 2011-10-6 05:44     标题: perl截取中文为何是乱码

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

  2. foreach (<var>) {

  3. 	print substr($_,1);

  4. }
复制代码
作者: sxw    时间: 2011-10-8 19:41

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

  2. open var,"<a.txt";

  3. 

  4. foreach (<var>) {

  5.        $_=encode("utf-8",$_);

  6.         print substr(decode("gb2312",$_),1);

  7. 

  8. }
复制代码
作者: 523066680    时间: 2015-6-3 19:26

本帖最后由 523066680 于 2015-6-3 19:32 编辑

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

对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查一下



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2