请教数据处理一对多的匹配问题

kwunkau

1. [root@ivan AA]# cat a1
   
2. 001,A001,20170127
   
3. 002,B001,20170127
   
4. 001,B001,20170127
   
5. 
   
6. [root@ivan AA]# cat b1
   
7. 1,酒店1,A001
   
8. 2,酒店2,A001
   
9. 3,酒店3,B001
   
10. 4,酒店4,B001
    
11. 5,酒店5,B001
    
12. 6,酒店6,B001
    

复制代码

如题，有一文本a1,用来匹配b1的结果，希望得到结果c1:如下
001,A001,1,酒店1
001,A001,2,酒店2
002,B001,3,酒店3
002,B001,4,酒店4
002,B001,5,酒店5
002,B001,6,酒店6
001,B001,3,酒店3
001,B001,4,酒店4
001,B001,5,酒店5
001,B001,6,酒店6


弄了一个晚上都想不出来，[root@ivan AA]# awk -F, 'FNR==NR{a[$3]=$1;next}{print $0","a[$2]}' b1 a1
001,A001,20170127,2
002,B001,20170127,6
001,B001,20170127,6-----------------------这个只有匹配一个的结果


请教下各位应该怎么写？数据a1,b1都是大量的，而且b1中不知道$3存在多少个重复的情况

moperyblue

1. awk 'NR==FNR{a[$3,++b[$3]]=$1 FS $2;if(b[$3]>m)m=b[$3];next}{for(j=0;j++<m;)if(a[$2,j]){NF=2;print $0,a[$2,j]}}' FS=, OFS=, b1 a1

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. 
   
6. binmode (STDOUT, ':encoding(cp936)');
   
7. my %hKeys = ();
   
8. 
   
9. while (<DATA>){
   
10.     last if (/\A#/);
    
11.     my ($n, $k) = split (/,/,$_);
    
12.     push (@{$hKeys{$k}}, join (',', $n, $k));
    
13. }
    
14. 
    
15. while (<DATA>){
    
16.     chomp;
    
17.     my ($n, $v, $k) = split (/,/, $_);
    
18.     foreach (@{$hKeys{$k}}){
    
19.         print join (',', $_, $n, $v), "\n";
    
20.     }
    
21. }
    
22. 
    
23. __DATA__
    
24. 001,A001,20170127
    
25. 002,B001,20170127
    
26. 001,B001,20170127
    
27. #b1 data
    
28. 1,酒店1,A001
    
29. 2,酒店2,A001
    
30. 3,酒店3,B001
    
31. 4,酒店4,B001
    
32. 5,酒店5,B001
    
33. 6,酒店6,B001

复制代码

kwunkau

回复 2# moperyblue

谢谢，学习下

kwunkau

回复 3# sunzhiguolu

虽然长一点，不过好详细，谢谢了