使用Perl删除注释

Question

我一直在做的是在处理文件时删除文件中的注释.我当时想知道是否有一个模块可以做到这一点.

我一直在写的代码排序是

    while(<>) {
        s/#.*// ;
        next if /^ \s+ $/x ;

        **** do something useful here ****
    }

编辑只是为了澄清,输入不是Perl.这是我自己创建的文本文件,可能包含我想以某种方式处理的数据.我希望能够发表我的程序忽略的评论

Answer 1

除非这是学习经验,否则我建议您使用Regexp :: Common :: comment而不是编写自己的正则表达式.

它支持多种语言.