perl 不打印，修改原文件

freesiaSS

我想在perl脚本中，while模块内，if条件从句后面的｛｝中，不打印，在原文件中删除当前行。

例如，我的文件是

1

2

3

4

5

6

7

我必须在不打印的情况下，通过if($_=~/5/){delete $_;}，使原文件变成

1

2

3

4

6

7

#perl test.pl test.txt

use warnings;

$^I=“”;

open IN, "+<$ARGV[0]" || die $!;

$/="\n";

<IN>;

while(<IN>){

    if($_=~/>5/){$_ =~ s/^*.*$//g;$_ =~ s/^\s*$//g;}

}

close(IN);

这个脚本也不行。因为我这一段是要一个重要脚本的模块，所以只能原地改文件。打印出来再复制到原文件中，也行不通。。。。

百试不得其解。。大神有什么办法没有。只能是修改原文件。不可以打印。