perl正则匹配问题

s-jackie

$test = "你好@@测试[[[]]测试]&^*%$#]].torrent";
想把$test里面不是汉字，字母和数字的字符全部用@符号替换，怎么写这个匹配模式。
主要是非汉字的匹配。望高手指点！谢了。

兰花仙子

原帖由 s-jackie 于 2007-2-12 17:53 发表
$test = "你好@@测试[[[]]测试]&^*%$#]].torrent";
想把$test里面不是汉字，字母和数字的字符全部用@符号替换，怎么写这个匹配模式。
主要是非汉字的匹配。望高手指点！谢了。

把数字,字母和汉字全部排除,剩下的就执行替换咯.
置顶帖子里有如何匹配汉字的regex.

ulmer

1. 
   
2. $str = "你好@@测试[[[]]测试]&^*%$#]].torrent";
   
3. # method 1
   
4. for (split('', $str)) {
   
5.     #print $_, "\n";
   
6.     $new_str .= /[\w|\x80-\xFF]/ ? $_ : '@';
   
7. }
   
8. print $new_str, "\n";
   
9. 
   
10. # method 2
    
11. $str =~ s/[^\w|\x80-\xFF]/@/g;
    
12. print $str, "\n";
    
13. 
    

复制代码

-- ulmer

jackiew

果然牛人！测试结果如下：

1. 你好@@测试@@@@@测试@@@@@@@@@@torrent

复制代码

建议将双引号换成单引号。

\w 匹配单词字符，包括字母、数字和"_";
\x80-\xFF 是什么意思？请不吝赐教。

boxpei

原帖由 jackiew 于 2007-2-15 00:52 发表

\w 匹配单词字符，包括字母、数字和"_";
\x80-\xFF 是什么意思？请不吝赐教。

匹配ox80-0xff，这个应该是汉字编码的范围

老叫花子

原帖由 jackiew 于 2007-2-15 00:52 发表
果然牛人！测试结果如下：

1. 你好@@测试@@@@@测试@@@@@@@@@@torrent

复制代码

建议将双引号换成单引号。

\w 匹配单词字符，包括字母、数字和"_";
\x80-\xFF 是什么意思？请不吝赐教。

一种汉字编码，应该是GB吧～～～
这个要看你机器所使用的编码
我的Ubuntu就不行，呵呵

jackiew

谢谢楼上二位的指教！