perl匹配ANSI格式的汉字

在ANSI格式下,汉字一般由两个字节组成

可使用如下方式匹配

([\x80-\xFF]+)

 

如

while(){
    my $testline=$_;  
    ### $testline;
    if($testline =~ /([\x80-\xFF]{4}).*/i){ 

        ### found :$1;
    }
}
__DATA__
怎样用正则表达式匹配汉字

 

结果为:

### $testline: '怎样用正则表达式匹配汉字'

### found : '怎样'