- 论坛徽章:
- 0
|
#!d:\perl\bin\perl.exe -w
use XML::Simple;
$r = "\xd6\xd0"; #中文的“中”的gb2312编码
print "\nr size=", bytes::length($r);
$cfg = XMLin("config.xml");
$a = $cfg->{linktype}->{list}->{attr}->[0]->{patch}->{var}->[1]->{content}; ------〉其值为.txt
print "\na=",$a;
print "\na size=", bytes::length($a);
#$r = sprintf("%s%s",$r,$a);
#$r .= $kk;
$r = "$r$a";
print "\nr size=", bytes::length($r);
print "\nr=",$r;
输出结果:
r size=2
a=.txt
a size=4
r size=8 ----> 此处为什么大小为8而不是6呢?
r=中.txt
如果$a不是从XML中取出,而是直接设置,则大小为6
#!d:\perl\bin\perl.exe -w
use XML::Simple;
$r = "\xd6\xd0"; #中文的“中”的gb2312编码
print "\nr size=", bytes::length($r);
$cfg = XMLin("config.xml");
$a = ".txt"; ----------->直接设置
print "\na=",$a;
print "\na size=", bytes::length($a);
#$r = sprintf("%s%s",$r,$a);
#$r .= $kk;
$r = "$r$a";
print "\nr size=", bytes::length($r);
print "\nr=",$r;
输出结果:
r size=2
a=.txt
a size=4
r size=6 ----> 此处为什么大小为6r=中.txt |
|