regex - 使用 Perl 删除注释

Question

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

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

谢谢。

Answer 1

尝试Regexp::Common::comment：

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

Answer 2

这是一个常见问题解答：

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