Perl中得到汉字和英文长度

转载本站文章请注明,转载自:扶凯[http://www.php-oa.com]

本文链接: http://www.php-oa.com/2008/12/13/perl-_str.html

Perl中得到汉字和英文长度

sub length_china(){
if(@lc=$_=~/[\x80-\xff]{3}|\w/gi){
return scalar @lc;
        }
}

因为在Perl中汉字有三个字节,做for循环时不方便,所以修改了一下,用上面的方法可以给汉字当成一个字符来处理.
 

暂无留言

我要留言
(必填)
(必填,绝不公开)