文本匹配输出

moperyblue

1. awk 'NR==FNR{a[$2]=1;next}!a[$2]' 1.txt 2.txt

复制代码

moperyblue

1. awk 'NR==FNR{a[$2]=1;next}!a[$2]' 1 2

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $data = {};
   
6. my $fn = $ARGV[0];
   
7. while(<>){
   
8.         next if(/\A\s*\z/);
   
9.         my ($a, $b) = split;
   
10.         my $k = $a . $b;
    
11.         if($fn ne $ARGV){
    
12.                 print unless($data->{$k} or $data->{$a}++);
    
13.                 next;
    
14.         }
    
15.         $data->{$k}++;
    
16. }

复制代码

sunzhiguolu

perl abc.pl a b

moperyblue

1. 
   

复制代码

moperyblue

回复 5# ma3501406


2.txt中的"ccc     789n795"不是被1.txt中的"ccc     789n797"包含了吗? 还输出?