想删除文件中的一段--有规则的

raullpq

尝试了很多方法，但是都不正确：

比如有一个html的文件中有一行是注释行，我要删除这个注释行，及往下的20行。
例如：<!--192.168.1.1-->
通过$.可以记录行号，我有什么办法跳过这些行？下面的操作思路是否有问题？

        open OLD, "</www/a.html" or die "can't open a.html: $!";
        open NEW, ">/www/b.html" or die "can't open b.html: $!";
        chdir "/www" or die "cannot chdir to /www: $!";
        while (<OLD>) {
            if ( $_ =~ /\<\!--192.168.1.1--\>/ ) {
                $start_line = $.;
                $end_line = $. + 20;
                .............. 怎么跳过这20行？
            } else {
                print NEW $_;
            }
        }

或者有什么其他的思路可供参考？多谢！

flw

<OLD> for(1..20);

raullpq

cool ~~~ 已经成功。 多谢flw

        open OLD, "</www/a.html" or die "can't open a.html: $!";
        open NEW, ">/www/b.html" or die "can't open b.html: $!";
        chdir "/www" or die "cannot chdir to /www: $!";
        while (<OLD>) {
            if ( $_ =~ /\<\!--192.168.1.1--\>/ ) {
                <OLD> for(1..20);
            } else {
                print NEW $_;
            }
        }