perl求汉字字符串长度

perl在进行汉字操作之前要先转码，不然无法正确操作。

​use Encode;

​$s=’汉字’;

$str=​decode ‘utf8’,$s;   #######或者gb2312之类的

$len=length($str); ######这样就可以正确得到汉字字符串的长度了​