免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 4070 | 回复: 8
打印 上一主题 下一主题

正则表达式匹配中文 [复制链接]

boot2046 该用户已被删除
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2007-09-24 13:57 |只看该作者 |倒序浏览
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
0
2 [报告]
发表于 2007-09-24 14:22 |只看该作者
may this essence be helpful to you

http://bbs.chinaunix.net/viewthr ... p%3Bfilter%3Ddigest

[ 本帖最后由 Lonki 于 2007-9-25 11:12 编辑 ]
boot2046 该用户已被删除
3 [报告]
发表于 2007-09-24 15:06 |只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
boot2046 该用户已被删除
4 [报告]
发表于 2007-09-24 16:27 |只看该作者
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
0
5 [报告]
发表于 2007-09-25 13:51 |只看该作者
原帖由 boot2046 于 2007-9-24 16:27 发表
[\x80-\xff]能匹配到汉字,但是不想要标点,怎么办呢




用UTF8保存下面的代码

use strict;
use warnings;
use utf8;
use Encode;

binmode(STDOUT, ':encoding(GBK)');


my $str  = 'Chinese: 中,.!,,秋快乐.。!';

while ($str =~ /([\x{4e00}-\x{9fa5}])/g) {
    print $1, "\n";
};



### 运行结果 ###



论坛徽章:
0
6 [报告]
发表于 2007-09-25 15:07 |只看该作者

回复 #5 Lonki 的帖子

### 运行结果 ###



  1. my $happy ="Tur fnzr gb lbh, naq gb nyy!";
  2. $happy=~tr/a-z/n-za-m/;
  3. print $happy;
复制代码

运行结果:
  1. The same to you, and to all!
复制代码

boot2046 该用户已被删除
7 [报告]
发表于 2007-09-26 16:59 |只看该作者
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
0
8 [报告]
发表于 2007-09-27 15:16 |只看该作者
http://perldoc.perl.org/perlunicode.html中,关于Unicode的匹配,就没有\uxxxx的表达方式,只有\x{xxxx}

论坛徽章:
0
9 [报告]
发表于 2007-09-27 22:50 |只看该作者
长见识了
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP