摘要:
用perl截取字符串,字符串中含有中文、英文、数字和各种符号,也包含中文标点符号,截取一定数量的字符,并且截取之后中文是完整的,不会出现乱码或问号。sub makelen($$) { my($sstr,$slen)=@_; my $makelen,$parity; $mslen=length($sstr); if($mslen>$slen) { for($... 阅读全文
posted @ 2004-06-18 07:58
zhumao-2
阅读(484)
评论(0)
推荐(0)

浙公网安备 33010602011771号