Question

怎样用正则表达式匹配汉字 (perl)

转成unicode以后用property匹配，例（设输入输出编码为gb2312、gbk或gb18030）：print encode('cp936',$x),"\n";

Answer 1

use Encode;$_="abc你好wert";$a=decode('cp936',$_);($x)=($a=~m/(\p{Han}+)/);print encode('cp936',$x),"\n"; 先谢谢分享，但似乎有个问题。如何匹配多段汉字呢。比如:$_="abc你好，汤姆qwer";怎么匹配?我试过use Encode;$_="abc你好，汤姆qwer";$a=decode('cp936',$_);while（m/(\p{Han}+)/g）{push @hanzi,$1;}print encode('cp936',@hanzi),"\n"; 不管用。我是菜鸟。还没理解您的这段。能不能给讲解一下。

Answer 2

[\u4e00-\u9fa5]+

Answer 3

print $_,"\n" for @a; print encode('cp936',$_),"\n" for @hanzi;