正则表达式 – 使用Perl删除注释

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

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

谢谢.

解决方法

试试 Regexp::Common::comment：

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