1.经常会遇到把不匹配某些特征的行打印出来。可以用!~来操作(含义是不匹配)。
#! /usr/bin/perl
use 5.010;
use strict;
if (-e "get_file.txt"){
say "get_file is exist";
unlink "get_file.txt";
say "get_file is delete";
}
open my $fix_file,'>',"get_file.txt" ;
while(<>){
if (/w_mps|rake_post|lte_csi|lte_cst|u_pss_top/){
if ($_ !~ /pmi/){
#if ($_ !~ /pmi.*data/){
printf $fix_file $_;
}
}
}
close $fix_file;