怎样在perl脚本中，while模块内，不打印的情况下，删除原文件的当前行

freesiaSS

如题，
我有个问题，百试不得其解。请大神赐教
比如有这样一个文件 ss.txt
内容是：
123
34556
556868
346
3345657
33434
2233
2325
问题是，在不打印的情况下，我想在原文件中删除346这一行。
请帮我补填一下下面的脚本。。感谢！
#perl test.pl ss.txt
use warnings;
open IN, "<$ARGV[0]" || die $!;
$/="\n";
<IN>;
while(<IN>){
    if($_=~/346/){删除当前行$_}
}
close(IN);

华小飞_Perl

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. while (<>) {
   
7.         chomp;
   
8.         next if (s/^346$//m);
   
9.         print $_, "\n";
   
10. }

复制代码