正则表达式求解!!!

hitsubunnu

1. 
   
2. while(<>){
   
3.         print if(m!/\*!..m!\*/!);
   
4. }
   

复制代码

hitsubunnu

原帖由 xht314 于 2009-6-4 14:35 发表
谢谢 hitsubunnu

你给的代码很好用.    但是我在windows用UltraEdit工具想批量替换注释.  用这个表达式行不通.  

如果用perl来替换,将如何操作呢?  我的目录下面有很多子目录,有很多文件. 我想将所有注释 ...

1. 
   
2. grep -r '*' /your/path/ >log.txt
   

复制代码

hitsubunnu

1. 
   
2. grep -l -r "*" ./ |xargs perl -pi.bk -e "$_ = '' if(m!/\*!..m!\*/!);"
   

复制代码

hitsubunnu

原帖由 xht314 于 2009-6-5 15:21 发表
while(){
s/^\/\*.*\n//;
s/^\s*\*.*\n//;
s/(.*?)\/\*.*?\*\//$1/;

    push @file_content,$_;
   }

替换成

   while(){

   $_ = print if(m!/\*!..m!\*/!);
    push @file_content,$_;
...

不是都给你写好了吗

1. 
   
2. grep -l -r "*" /your/path/ |xargs perl -pi.bk -e "$_ = '' if(m!/\*!..m!\*/!);"
   

复制代码