存档

2008年4月26日 的存档

perl utf8值得注意的一点

  use utf8; my $var="测试啊";   print "OK1\n" if ($var=~/试/);   printf "str: %s length: %d\n", $var, length($var);   $var = `echo $var`; chomp($var);   print "OK2\n" if ($var=~/试/);   printf "str: %s length: %d\n", $var, length($var); 结果：   debian:~# ./test.pl  OK1 Wide character in print at ./test.pl line 11. str: 测试啊 length: 3 str: [...]

1 条评论
四 26th, 2008 | Filed under 开发