perl匹配中文的正则表达式怎么写？

雨中漫步

perl匹配中文的正则表达式怎么写？
我需要一个正则表达式匹配中文字符，不知怎么写

兰花仙子

原帖由 雨中漫步 于 2005-12-16 21:46 发表
perl匹配中文的正则表达式怎么写？
我需要一个正则表达式匹配中文字符，不知怎么写

/([\x80-\xFF][\x80-\xFF])/

()里的表示中文双字节。

HonestQiao

可以参考:

http://bbs.chinaunix.net/viewthr ... &extra=page%3D1

batchmain

可以用Encode::decode()译码后再匹配，如下：
#!/usr/bin/perl -w

use Encode;

$re = Encode::decode('GB2312', '中国');
$in = Encode::decode('GB2312', $ARGV[0]);

if( $in =~/.*$re.*/ ) {
   print $ARGV[0], "\n";
}

minirain

回复 2# 兰花仙子
请问下仙子，如果表达示中即有中文，又有俄文，那么
([\x80-\xFF][\x80-\xFF])
能区分中文和俄文吗？如果不能，应该怎样区分中文和俄文呢？
如：беспрестанно наказывать 千罚咛万嘱咐
谢谢！

   

清泉一边

学习了~~~~~

minirain

回复 2# 兰花仙子


    仙子MM，你好！/([\x80-\xFF][\x80-\xFF])/ 不仅可以匹配中文，而且也配俄文，那么怎么才能在中文、俄文中区分出中文或俄文来呢！
minirain
20141216

yakczh_cu

如果文件是utf8编码的吗?

ntwarren

用这个就可以只匹配中日韩文等没有大小写之分的语言文字: \p{Lo}

测试例子如下:
use Encode qw(encode decode);
$aa = <>;
print $aa;
$aa = decode ( "utf-8",$aa);
binmode STDOUT, ":utf8";
if($aa =~ /\p{Lo}+/){
    print $&;
}