perl use utf8 no utf8 字符长度区别

来源：互联网发布：淘宝网领券猫腻编辑：程序博客网时间：2024/04/30 07:26

1.[oracle@oadb utf-8]$ cat a1.pl my $str="测试更健康";print length($str);print "\n";print $str."\n";print "11111111111111\n";[oracle@oadb utf-8]$ perl a1.pl 15测试更健康11111111111111字符串长度为15[oracle@oadb utf-8]$ cat a1.pl use Encode;my $str="测试更健康";print length($str);print "\n";print $str."\n";print "11111111111111\n";$str=encode_utf8($str);print length($str);print "\n";print $str."\n";[oracle@oadb utf-8]$ perl a1.pl 15测试更健康1111111111111130æµè¯æ´å¥åº·[oracle@oadb utf-8]$ $str=encode_utf8($str); 后字符长度变成30启用utf8:[oracle@oadb utf-8]$ perl a2.pl 5Wide character in print at a2.pl line 6.测试更健康11111111111111字符串长度变成5[oracle@oadb utf-8]$ cat a2.pl use Encode;use utf8;my $str="测试更健康";print length($str);print "\n";print $str."\n";print "11111111111111\n";$str=encode_utf8($str);print length($str);print "\n";print $str."\n";print "11111111111111\n";[oracle@oadb utf-8]$ perl a2.pl 5Wide character in print at a2.pl line 6.测试更健康1111111111111115测试更健康11111111111111

0 0