码迷,mamicode.com
首页 > 其他好文 > 详细

用perl对字符串进行全角转半角操作

时间:2014-04-29 13:36:21      阅读:366      评论:0      收藏:0      [点我收藏+]

标签:blog   2014   for   re   c   ar   

#全角转半角
#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,0,1);
		 	if (ord($headname2) >= 128)
			{
				$headname2=decode("gbk",substr($tmpname,0,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;  		
}

用perl对字符串进行全角转半角操作,码迷,mamicode.com

用perl对字符串进行全角转半角操作

标签:blog   2014   for   re   c   ar   

原文地址:http://blog.csdn.net/longlong530/article/details/24632303

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!