两文件比较匹配替换问题 总感觉我把问题说不明白呢

dahaoshanhe

源文件：有两个文件
file1

1. 
   
2.   SP    2012  421  1     80    a    120    b  160    c
   
3.   SP    2012  421  4     80    g    120    b  160    c  560   d   580    e  600   
   
4.   SP    2012  234 18     40    t     80    b  120    c  160    d         
   

复制代码

file2

1.                                                    
   
2.   SP    2012  421  1     80    x   120   y
   
3.   SP    2012  234  16    40    d   80    z  120    m     
   
4.   SP    2012  421  2     40    j   80    h  120    p  160    h   200   p   
   
5.   SP    2012  421  25    40    i   80                  
   
6.       

复制代码

文件描述：
两文件,  前四列为标识。从第5列开始，两列为一对。
比较两文件中的第3列，如果第3列相同，或是第3列之间差最小，两个最接近。就将文件2中对后面对应数字后的值与文件1中的进行置换。
目标文件：

1. 
   
2.   SP    2012  421  1     80    x    120    y  160     c
   
3.   SP    2012  421  4     80    h    120    p  160    h  560   d   580    e  600     
   
4.   SP    2012  234 18     40    d     80    z  120    m  160    d         
   

复制代码

winway1988

回复 1# dahaoshanhe

1. [winway@winway test]$ cat awkscr
   
2. NR == FNR {
   
3.         for (i=5; i<=NF; i+=2) {
   
4.                 line[FNR FS $3 FS $i] = $i FS $(i+1)
   
5.         }
   
6.         linecnt = FNR;
   
7.         next;
   
8. }
   
9. 
   
10. NR > FNR {
    
11.         for (i=1; i<=linecnt; i++) {
    
12.                 for (j in line) {
    
13.                         if (j ~ i FS $3) {
    
14.                                 split(line[j], a, FS);
    
15.                                 for (k=5; k<=NF; k+=2) {
    
16.                                         if ($k == a[1]) {
    
17.                                                 $(k+1) = a[2];
    
18.                                                 break;
    
19.                                         }
    
20.                                 }
    
21.                                 delete line[j];
    
22.                                 find = 1;
    
23.                         }
    
24.                 }
    
25.                 if (find == 1) {
    
26.                         find = 0;
    
27.                         break;
    
28.                 }
    
29.         }
    
30.         print $0;
    
31. }
    
32. [winway@winway test]$ awk -f awkscr file2 file1
    
33. SP 2012 421 1 80 x 120 y 160 c
    
34. SP 2012 421 4 80 h 120 p 160 h 560 d 580 e 600
    
35. SP 2012 234 18 40 d 80 z 120 m 160 d

复制代码

yinyuemi

回复 1# dahaoshanhe


    这个和前几个帖子的问题类似啊

dahaoshanhe

回复 4# yinyuemi


    是啊 是差不多一样的问题   就是那个写的有点乱 ，我重新写个贴。