求助；把两个txt文本前6列数字完全相同的行合并后另存？[已解决]

清泉一边

1. #!/usr/bin/perl
   
2. use strict;
   
3. open (IN1,"a.txt");
   
4. open (IN2,"b.txt");
   
5. my (%hash,%h);
   
6. while (<IN1>){
   
7. chomp;
   
8. my @a =split;
   
9. my $b = pop @a;
   
10. my $k = join "\t",@a;
    
11. $hash{$k} = $b;
    
12. }
    
13. while (<IN2>){
    
14. chomp;
    
15. my @a =split;
    
16. my $b = pop @a;
    
17. my $k = join "\t",@a;
    
18. $h{$k} = $b;
    
19. }
    
20. foreach my $k (sort keys %hash){
    
21. print "$k\t$hash{$k}\t$h{$k}\n" if exists $h{$k};
    
22. }

复制代码

回复 1# hkldd


   

sunzhiguolu

1. perl -anle '$k="@F[0..5]";if(@ARGV){$h{$k}=$F[-1];next}print "$k $v $F[-1]" if($v=$h{$k})' a b

复制代码