截取字符串时，中英文混合时的判断函数

sub makelen($$)
 {
 my($sstr,$slen)=@_;
 my $makelen,$parity;
 $mslen=length($sstr);
 if($mslen>$slen)
 {
 for($mn=0;$mn<$slen;$mn++) #在要求的长度内
 {
 $ss=substr($sstr,$mn,1);
 if(ord($ss)<127) #为英文
 {
 $parity+=1;
 }
 }
 if($parity%2==1) #含英文长度为奇数
 {
 if($slen%2==1) #如果所要求的长度也为奇数
 {
 $tmpstr=substr($sstr,0,$slen);
 }
 else #所要求的长度为偶数
 {
 $tmpstr=substr($sstr,0,$slen-1);
 }
 }
 else #含英文长度为偶数或者为0，0也为偶数
 {
 if($slen%2==1) #如果所要求的长度为奇数
 {
 $tmpstr=substr($sstr,0,$slen-1);
 }
 else #所要求的长度为偶数
 {
 $tmpstr=substr($sstr,0,$slen);
 }
 }
 $makelen=$tmpstr;
 }
 else
 {
 $makelen=$sstr;
 }
 return $makelen;
 }