perl中如何匹配除了//的字符串？

weigern

如题

我知道匹配除单个字符是[^/]，但是我要匹配非//的，就是说//ssss不匹配，但是/<space> /是匹配的，该怎么写正则表达式？谢谢指教。

兰花仙子

偶实在没听懂你讲what，能否描述问题清楚点？

weigern

不好意思，可能我表达有点问题。新学perl和正则表达式，看到书上例子有提取匹配perl注释的例子，因为perl的注释符号是#，所以一行中不是注释的部分用^[^#]*来表示了，我想用来实现成C++的例子，但是C++的注释是两个字符//，好像用这个表达式就不对了。请问如何用正则表达式来匹配到不是注释的部分？

andyhua12

转义字符

weigern

不是转义字符的意思，就是说如果照写[^\/\/]应该是没有意义的吧，那样和[^\/]有什么区别？[]不是匹配里面的任何一个字符之一的意思吗？

weigern

还是没有人看我的贴啊。菜鸟求助中

简单的说，就是我要字符串
//haha匹配出来是真
/  /haha, /ss/haha这些匹配出来都是假，怎么做呢？

superdoctor

先匹配一个/，然后中间匹配１个或多余１个的空格或字母数字，然后再匹配一个/,如果满足这些，那么就可以选出来了

似乎是这样写
\/[\D\d]+\/，好久没用了，不记得了，你自己考虑下

[ 本帖最后由 superdoctor 于 2006-3-22 16:10 编辑 ]

dirac_teng

m{/{2}}

//haha匹配出来是真
/  /haha, /ss/haha这些匹配出来都是假

ulmer

原帖由 weigern 于 2006-3-22 15:19 发表
还是没有人看我的贴啊。菜鸟求助中

简单的说，就是我要字符串
//haha匹配出来是真
/  /haha, /ss/haha这些匹配出来都是假，怎么做呢？

If you want to matche exactly two slashes "//" with some A-Za-z0-9,
simply try those pattern:
m{[(/]{2}\w+)}g or m/(\/\/\w+)/g; or m/\/{2}\w+/g;

i.e.: one perl-line:
linux shell:
perl -le '$s=qq(//a/b////c/bbb/  //haha/ha  xxx); @m=$s=~m{(\/{2}\w+)}g;print qq(@m);'

windows cmd:
perl -e "$s=qq(//a/b////c/bbb/  //haha/ha  xxx); @m=$s=~m{(\/{2}\w+)}g;print qq(@m);"

Best, ulmer

[ 本帖最后由 ulmer 于 2006-3-22 16:49 编辑 ]