Chinaunix

标题: 请教匹配中文标点的正则表达式 [打印本页]

作者: rain_little 时间: 2007-09-30 04:03
标题: 请教匹配中文标点的正则表达式
请教一个正则表达式：
我要从下面的哈希中删除含有逗号和句号的项，这里的逗号和句号都是中文状态下的.

my %grades = {"%的" =>"599","(S"=>"101",")的"=>"131","/美"=>"147","分钟的"=>"100","分钟，"=>"459","功能"=>"1643","功能。"=>"108",};

即结果是：
my %grades = {"%的" =>"599","(S"=>"101",")的"=>"131","/美"=>"147","分钟的"=>"100","功能"=>"1643",};

先谢谢了！

作者: Lonki 时间: 2007-09-30 16:00

my %grades = (
    "%的" =>"599",
    "(S"=>"101",
    ")的"=>"131",
    "/美"=>"147",
    "分钟的"=>"100",
    "分钟，"=>"459",
    "功能"=>"1643",
    "功能。"=>"108",
);

foreach (keys %grades) {
    delete $grades{$_} if ($_ =~ /，|。/);
}

foreach (sort keys %grades) {
    print "$_ => $grades{$_}\n";
};

[ 本帖最后由 Lonki 于 2007-9-30 22:22 编辑 ]

作者: rain_little 时间: 2007-09-30 21:44
标题: 灵啊！多谢！
多谢了！简单实用！
我把[]里的中文标点换成中文文字，结果好象不对了，不知是为什么？请高手再看看，谢了！
my %grades = (
"%的" =>"599",
"(S"=>"101",
")的"=>"131",
"/美"=>"147",
"分钟的"=>"100",
"分钟，"=>"459",
"功能"=>"1643",
"功能。"=>"108",
);

foreach (keys %grades) {
delete $grades{$_} if ($_ =~ /[的]/);
}

foreach (sort keys %grades) {
print "$_ => $grades{$_}\n";
};
运行结果是：
(S => 101
/美 => 147
分钟， => 459

最后两项没有了。

作者: Lonki 时间: 2007-09-30 22:21

原帖由 rain_little 于 2007-9-30 21:44 发表
多谢了！简单实用！
我把[]里的中文标点换成中文文字，结果好象不对了，不知是为什么？请高手再看看，谢了！
my %grades = (
"%的" =>"599",
"(S"=>"101",
")的"=>"131",
"/美"=>"147",
...

恩, 这个问题非常好.

默认情况下, perl将中文当作双字节处理(即双字符)
[的]其实是过滤了包含组成'的'字的2个字符.
假设'的'字由ab字符顺序组成, [的]将过滤ab, ba, ac, bc等等

所以应该写成=~ /的/;
如果有多个中文, 用=~/的|，|．/;

或者指定utf8编码.

作者: rain_little 时间: 2007-10-01 17:03
标题: 这下明白了！
多谢耐心讲解，现在算是明白了，以前总觉得自己的正则和人家的差不多，可就是运行不对，不知道问题在哪里，这下豁然开朗了！
高！高！

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)