匹配注释 /**/ 的问题

bellsleep

匹配 /**/ 的问题

如要需要替换掉程序中的 /**/ ,应该怎么匹配?

1. m!/\*.*\*/!

复制代码

这个肯定是不行的

因为会包含这种

/* xxx */  abcd /* xYx */

现在需要去掉前后两个注释,应该怎么匹配?

wfnh

弄了几个正则,有些是相同的就是表达不一样，只是简单和复杂~~还有效率

1. 
   
2. s{/\*.*?\*/}{}g;
   
3. s{(?=/\*).*?(?<=\*/)}{}g;
   
4. s{.*\*/(.*)/\*.*}{$1}g;
   
5. 
   
6. 
   
7. 
   

复制代码

bellsleep

s{/\*.*?\*/}{}g;
s{(?=/\*).*?(?<=\*/)}{}g;
前两个都是OK的,
不过想请教一下,第一个倒是很好理解,
第二个里面的 ?= 是怎么理解? 需要看什么资料?

s{.*\*/(.*)/\*.*}{$1}g;  这个好像不能实现目的啊



my @test=<<END;
a^b&c*d/e1 /*  xxx1. */
/* xxx2 */ a^b&c*d/e2
a^b&c*d/e+a^b&c*d//* xxx3 */e-a^b&c*d/e3
            /*&& xxx4 */) /* yyy4 */
END

foreach my $f (@test)
{
    $_ = $f;
    print $_;
    s{/\*.*?\*/}{}g;
    print "=>1\n$_";
    $_ = $f;
    s{(?=/\*).*?(?<=\*/)}{}g;
    print "=>2\n$_";
    $_ = $f;
    s{.*\*/(.*)/\*.*}{$1}g;   #不成功
    print "=>3\n$_";

}

bellsleep

结果是:

a^b&c*d/e1 /*  xxx1. */
/* xxx2 */ a^b&c*d/e2
a^b&c*d/e+a^b&c*d//* xxx3 */e-a^b&c*d/e3
            /*&& xxx4 */) /* yyy4 */
=>1
a^b&c*d/e1
  a^b&c*d/e2
a^b&c*d/e+a^b&c*d/e-a^b&c*d/e3
            )
=>2
a^b&c*d/e1
  a^b&c*d/e2
a^b&c*d/e+a^b&c*d/e-a^b&c*d/e3
            )
=>3
a^b&c*d/e1 /*  xxx1. */
/* xxx2 */ a^b&c*d/e2
a^b&c*d/e+a^b&c*d//* xxx3 */e-a^b&c*d/e3
)

wfnh

s{/\*.*?\*/}{}g;
s{(?=/\*).*?(?
bellsleep 发表于 2010-09-03 10:14

至于第三个不行也没办法了···昨晚··都蒙了·····

第二个是利用了环视·····不懂的话··可以上网搜索一下·~

bellsleep

呵呵,谢谢啦!~
昨天晚上也太晚了一点

这个帖子里面有些说明
http://topic.csdn.net/u/20090710 ... d-d927edf43c79.html

wfnh

那位可以知道不用非贪婪做到匹配呢··

wfnh

又试了一个

1. 
   
2. 
   
3. s{
   
4.        /\*  #匹配开头
   
5.        (
   
6.            (?!/\*)  #除了/*
   
7.            .           #任何字符都没所谓
   
8.        )*   
   
9.        \*/   #匹配结尾
   
10. }{}gx
    

复制代码

还有下面这个···是精通正则里边的一个例子····

1. s{/\*([^*]|\*+[^/*])*\*+/}{}gx

复制代码

珞水的大叔

1. s{(?=/\*).*?(?<=\*/)}{}g;

复制代码

这个貌似可以匹配“/*/”
只是不知道“/*/*/”是不是一个正确的注释表达式
如果是

1. s{(?=/\*).{4,}?(?<=\*/)}{}g;

复制代码

应该就可以了