使用Perl删除注释

Question

是否有任何正则表达式能够从perl中删除给定C程序中//和/**/var的所有注释？

给定多行程序,它应该使用正则表达式来删除注释并返回未注释掉的部分.

谢谢.

Answer 1

试试Regexp::Common::comment:

  use Regexp::Common qw /comment/;
  while (<>) {
        s/($RE{comment}{C++})//;
  }

Answer 2

这是一个FAQ:

如何使用正则表达式从文件中删除C风格的注释？