use encoding的问题

sjdy521

1. use encoding 'gb2312';
   
2. $a = chr(24555);
   
3. $b=<DATA>;
   
4. 
   
5. printf "%#vx\n",$a;
   
6. printf "%#vx\n",$b;
   
7. 
   
8. print length($a),"\n";
   
9. print length($b),"\n";
   
10. 
    
11. __DATA__
    
12. 快

复制代码

输出结果：

1. 0x5feb
   
2. 0x5feb.0xa
   
3. 1
   
4. 2

复制代码

我确定我的原始数据中没有换行啊，为什么经过use encoding处理后，末尾多了一个换行符？导致length算字符长度的时候 多算了一个
想不通，郁闷了。。

朱亭亭

print "$b-";

__OUTPUT__
快
-

是 __DATA__ 的问题

my $n = 0;
m/\n/ and $n++ while <DATA>;
print $n; # 3

__DATA__
aaa
aaa
aaa

朱亭亭

还有 你的所有操作都没有对 $b 进行修改

sjdy521

回复 2# 朱亭亭


    看样子__DATA__会自动在数据末尾加换行符