中文字符串匹配问题

首先看如下代码：


$s="图盟科技 mapabc";


$t="济";




if($s=~/$t/)




...{


print "good ";


}


else




...{


print "bad ";


}

程序运行结果：
good
分析：由于“图”的右半边与“盟”的左半边合成了“济”字，故匹配成功。但在中文处理中这种情况是不合理的。
解决方案：引入 Encode 包。


use Encode;




$s="图盟科技 mapabc";


$t="济";



$length=length($t);# 2


$s = Encode::decode('GB2312',$s);


$t = Encode::decode('GB2312',$t);

$length=length($t);#1


if($s=~/$t/)




...{


print "good ";


}


else




...{


print "bad ";


}

现在的结果为：
bad