请教匹配中文标点的正则表达式

rain_little

请教一个正则表达式：
我要从下面的哈希中删除含有逗号和句号的项，这里的逗号和句号都是中文状态下的.

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

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

先谢谢了！

Lonki

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

多谢了！简单实用！
我把[]里的中文标点换成中文文字，结果好象不对了，不知是为什么？请高手再看看，谢了！
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

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

恩, 这个问题非常好.

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

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

或者指定utf8编码.

rain_little

多谢耐心讲解，现在算是明白了，以前总觉得自己的正则和人家的差不多，可就是运行不对，不知道问题在哪里，这下豁然开朗了！
高！高！