Perl5.8中使用encoding指示符需要注意的问题- -

最新推荐文章于 2019-01-02 20:53:41 发布

hwman

最新推荐文章于 2019-01-02 20:53:41 发布

阅读量1.2k

点赞数

文章标签： encoding perl socket join

本文链接：https://blog.csdn.net/hwman/article/details/1355505

版权

     Perl5.8中引入了 encoding指示符，可以用来设定源代码及输入输出的编码格式，并自动将内部字符串的UTF-8编码转化为所需的编码，方便了在非Unicode编码环境中的字符串操作。但是在使用中需要注意一些问题：
1、 encoding指示符仅对源代码、标准输入输出起作用，一般的文件及socket输入输出不受其影响，因此还不能抛弃 Encode模块。
2、使用 encoding设置编码后，若对任何一个字符串进行 chomp操作，则会根据 encoding编码将其转换为UTF-8编码；而 chop操作则仅对字符进行操作，不进行这种转换。
例子：
use encoding "cp936";
use Encode;
open(FH,"<t.txt");   # 从某个文件读入一些汉字数据
while(<FH>) {
    chop;   # 可改为chomp后对结果进行比较
    print "$_/n";
    print "before decode len: ",length($_),"/n";
    print "after decode len: ",length(decode("cp936",$_)),"/n";
    print "@{[split//,decode('cp936',$_)]}/n";
    print length(join('',split(//,decode("cp936",$_)))),"/n";
}