用perl对字符串进行全角转半角操作
发布时间:2020-12-15 23:58:35 所属栏目:大数据 来源:网络整理
导读:#全角转半角#ljluse Encode;sub CheckSBC{my ($name)=@_;my @character;my $tmpname=$name;my $headname;my $k=0;for($ii=1; $ii = length($name); $ii++) {if(length($tmpname)0){my $headname2=substr($tmpname,1); if (ord($headname2) = 128){$headname2
#全角转半角 #ljl use Encode; sub CheckSBC { my ($name)=@_; my @character; my $tmpname=$name; my $headname; my $k=0; for($ii=1; $ii <= length($name); $ii++) { if(length($tmpname)>0) { my $headname2=substr($tmpname,1); if (ord($headname2) >= 128) { $headname2=decode("gbk",substr($tmpname,2)); if(ord($headname2)==12288) { $headname2=chr(32); $headname=$headname.$headname2; $k=1; } elsif(ord($headname2)>65280 and ord($headname2)<65375) { $headname2=encode("gbk",chr(ord($headname2)-65248)); $headname=$headname.$headname2; $k=1; } else { $headname=$headname.encode("gbk",$headname2); $k=1; } $tmpname=substr($tmpname,2,length($tmpname)-2); $ii++; } else { $headname=$headname.$headname2; $tmpname=substr($tmpname,1,length($tmpname)-1); } } } $name=$headname; return $name; } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |