使用Perl删除注释

Question

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

鉴于多行程序，它应该使用正则表达式删除注释并返回未注释掉的部分。

感谢。

Answer 1

尝试Regexp::Common::comment：

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

Answer 2

这是FAQ：

How do I use a regular expression to strip C-style comments from a file?