如何从代码中删除所有注释（单行 --）

Question

我们正在处理 PL/SQL 中的长文本代码，并且经常发现代码量只是由于不必要的注释而增加。其中大多数是单行样式注释。

如何编写一个脚本来从代码中删除所有此类注释行？

例如： 原始代码：

DECLARE
   a  date := 0;
   -- NHT20302939 Dt 22.09.2009 Start
   b  VARCHAR2(1)  := 'N';
   -- NHT20302939 Dt 22.09.2009 End'
BEGIN
   -- NHT20302939 Dt 22.09.2009 Start
   a = GET_DATE();
   -- NHT20302939 Dt 22.09.2009 End
   if a > '22-MAR-2010' THEN
     -- NHT20302939 Dt 22.09.2009 Start
     Null;
     -- NHT20302939 Dt 22.09.2009 End
   else
      if myschema.PROCEDURE(b,
                        a) = FALSE THEN
     raise form_trigger_failure
   end if;
 end if;
END;

所需代码：

  DECLARE
    a  date := 0;
    b  VARCHAR2(1)  := 'N';
  BEGIN
     a = GET_DATE();
     if a > '22-MAR-2010' THEN
        Null;
     else
        if myschema.PROCEDURE(b,
                              a) = FALSE THEN
           raise form_trigger_failure
        end if;
     end if;
  END;

提前谢谢... 苏达萨塔雷

Answer 1

对于存储的包、过程等，您可以获得像这样的未注释的源：

select text
from   user_source
where  name = 'MYPACKAGE'
and    type = 'PACKAGE BODY'
and    ltrim(text) not like '--%'
order by line;

Answer 2

尝试进行文件内联编辑：

sed -e '/^\s*--.\+/d' -i yourFile.txt

不要忘记之前备份所有文件！