[D]Perl 正则表达式

[cindylanzao]

s/\s+(!\w+)/$1/这句是怎么把 huge (huge !)dinosaur 替换为 huge (huge!) dinosaur的

---------------------------
Double行动：
原帖分数：20
帖子加分：20

[cindylanzao]

这是小骆驼书上的例子，能讲解一下是怎么匹配的吗，谢谢了

[jiuchang]

这个正则说的是对于空格+叹号开头的单词的模式，使用叹号开头的单词替换，这样就把空格给删除了

[proorck6]

在正则表达式里，叹号不是元字符，但小括号是，所以(!\w+)就是以叹号开头的单词。

[bugs2k]

貌似那个正则表达式应该没法匹配，所以也就无法替换；如果要替换，貌似下面这个可以：

s/\s+(!\w*)/$1/

[dahetaoxiaobai]

[Quote=引用 1 楼 的回复:]

貌似那个正则表达式应该没法匹配，所以也就无法替换；如果要替换，貌似下面这个可以：

Perl code
s/\s+(!\w*)/$1/
[/Quote]
+1
s/\s+(!\w+)/$1/里面的+号应该是指\w（单词的集合）至少要有一个，也不是！号后起码要有一个字母，你那个正则表达式里没有！后跟\w的，所以应该是没法匹配的。$1代表的是第一个匹配上的()里面的表达式，也就是！\w+