如何用正则提取中文字符？

nsnake

UID: 41482
帖子: 154
积分: 354
在线时间: 1 天 8 小时

1^# nsnake 发表于 2005-05-15 16:01

如何用正则提取中文字符？

如何用正则提取中文字符？
#!/usr/bin/perl
$d = '我是汉字 asdfasdf' ;
$d =~ /(.*?)\t+[a-z0-9]*/i ;
print $1 ;#$1中就是'我是汉字'
这个方法不行
那位知道可行的方法啊？？
谢谢了

booboo

UID: 46324
帖子: 121
积分: 278
在线时间: 20 小时

2^# booboo 发表于 2005-05-15 18:18

[color=red]\t是制表符[/color]

cnhacktnt

UID: 40772
帖子: 111
积分: 255
在线时间: 17 小时

3^# cnhacktnt 发表于 2005-05-15 20:44

#!/usr/bin/per...
#!/usr/bin/perl
#cnhackTNT AT perlchina.org
$d="我是汉字 asdf";
$d=~ s/([^\x80-\xFF][^\x80-\xFF]*)//g;
print $d;

或者

#!/usr/bin/perl
#cnhackTNT AT perlchina.org

$d="一a二b三c四d五e六f";
print join('',$d=~ /([\x80-\xFF][\x80-\xFF]*)/gosx);

另外请参考：http://examples.oreilly.com/cjkvinfo/perl/perl2-lunde-paper.pdf

nsnake

UID: 41482
帖子: 154
积分: 354
在线时间: 1 天 8 小时

4^# nsnake 发表于 2005-05-16 11:11

感谢上的指导...