正则表达式求解!!!

shihao138096

收藏了，谢谢ILoveMK 分享

[ 本帖最后由 shihao138096 于 2009-6-5 14:37 编辑 ]

xht314

不行啊! 问题更严重了!      /**  没有被去掉!

xht314

while(<FILEHANDLER>){
s/^\/\*.*\n//;
s/^\s*\*.*\n//;
s/(.*?)\/\*.*?\*\//$1/;

    push @file_content,$_;
   }

替换成

   while(<FILEHANDLER>){

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


把注释部分替换成N个1了, 我知道是因为print反回结果造成的. 有没有办法解决呢??     用一个正则表达式不能匹配吗???    很着急呀.

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!\*/!);"
   

复制代码

shihao138096

不好意思 ，刚出去了一下，你说的那个问题主要是因为在你的/**前面有空格：现在将那三个正则表达式改为如下形式：
s/^\s*\/\*.*\n//;
s/^\s*\*.*\n//;
s/(.*?)\/\*.*?\*\//$1/;

shihao138096

hitsubunnu ，能不能解释一下 m!/\*!..m!\*/!呀，我初学者 ，谢谢了

MMMIX

原帖由 shihao138096 于 2009-6-5 16:37 发表
hitsubunnu ，能不能解释一下 m!/\*!..m!\*/!呀，我初学者 ，谢谢了

这个你看 perlop 中对 m// 和 .. 的描述就清楚了。另外，这个不是正则表达式，而是一个 .. 表达式。

shihao138096

谢谢了，就说呢，因为已经学习了一段时间perl了，可是就没看到（在基础教程中）这样的写法。太感谢了

小公猫

如果是注释就跳过
把要的内容另存为一个文件

shihao138096

你说的也未尝不是一个方法，但是好像有点绕了，我感觉