Perl 脚本记录3

rm_multi_line.pl

#!/usr/bin/perl

open my $oldfile,"<",$ARGV[0];
open(OUT,">./new1");

while (<$oldfile>) {
        unless( $_ =~ /a|b|c/ ) {
                print OUT "$_";
        }
}