比较并打印两个定长文本各个字段的差异

Feyiz

需求：
1）文件file1的内容如下：
     变量名   起始位置   长度
        A           1         4
        B           5         2
        C           7         3
        D           10       2
        ……
2）文件file2的内容如下：
     2015GZ200a1……
3）文件file3的内容如下：
     2015SZ200b1……
预期输出结果：
     实际与预期不相符的变量如下：
     B    <[GZ]   >[SZ]
     D    <[a1]    >[b1]
即根据文件file1中的变量定义，比较文件file2与文件file3的差异，并打印出有差异的变量名和两个文件file2与file3对应的变量值
个人感觉用awk应该可以实现，奈何本人对awk同时处理多个文件的方法了解的不够，希望有时间的大神指导一下，多谢

本帖5到8楼的几位高手已经给出以上需求的实现思路与具体脚本；现在升级下需求，具体如下：

升级后的需求：
1）文件file1的内容如下：
     第一组变量名   起始位置   长度
        A                   1         4
        B                   5         6
        ……
        ……
     第二组变量名   起始位置   长度
        C                   1         6
        D                   7         2
        E                   6         1
        F                   7         6
        ……
        ……
     第三组变量名   起始位置   长度
        G                   1        2
        H                   3        5
        ……
2）文件file2的内容如下：
     2015GZ200 a1……
     201506GZA1……
     114123cc66……
3）文件file3的内容如下：
     2015SZ0200a1……
     201505GZA1……
     111   cc66……
预期输出结果：
     实际与预期不相符的变量如下：
     第一组  B    <[GZ200 ]   >[GZ0200]
     第二组  C    <[201506]   >[201505]
     第三组  H    <[123cc]     >[   cc]
即根据文件file1中的变量定义，比较文件file2与文件file3的差异，并打印出有差异的变量名所在的组号和两个文件file2与file3对应的变量值
注：与升级前的需求相比，变量中可能会包含空格

本人现在能想到的方法是，可以通过把文件file1、文件file2与文件file3分别拆分为三个文件，然后按照5至8楼的思路去处理，可以实现；
请教一下各位，有没有比这简单的方法或者思路，请指点一下

yinyuemi

awk -vFIELDWIDTH="4 2 5" 'BEGIN{split("ABC",s,"")}NR==FNR{for(i=1;i<=NF;i++)a[i]=$i;next}{for(i=1;i<=NF;i++){if($i!~"^"a[i]"$"){print s[i],"<["a[i]"]; >["$i"]"}}}' file1 file2
没测试～

reyleon

不给样例文本样例结果的题看的略蛋疼

yestreenstars

回复 3# reyleon

深有同感，看得蛋好疼~
   

Feyiz

回复 2# yinyuemi
你好，我重新编译了下需求，并给出了简短的样例，帮忙指导下怎么实现，谢谢

   

Feyiz

回复 3# reyleon
你好，我重新编辑了下需求，并给出了简短的样例，帮忙看下如何实现可以吗，谢谢

   

Feyiz

回复 4# yestreenstars
你好，补充了一下需求样例，帮忙看下如何实现，或者指点一下，谢谢

   

yestreenstars

回复 7# Feyiz

1. awk 'ARGIND==1&&FNR>1{a[$1]=$2;b[$1]=$3}ARGIND==2{for(i in a)c[i]=substr($0,a[i],b[i])}ARGIND==3{for(i in a)d[i]=substr($0,a[i],b[i])}END{for(i in a)if(c[i]!=d[i])printf "%s\t<[%s]\t>[%s]\n",i,c[i],d[i]}' file1 file2 file3

复制代码

zxy877298415

1. awk 'ARGIND==1{a[$1]=$2" "$3;}ARGIND==2{b=$0}ARGIND==3{c=$0}
   
2. END{for(i in a){split(a[i],e," ");s=substr(b,e[1],e[2]);k=substr(c,e[1],e[2]);if(s!=k) print i,"<["s"]",">["k"]"}}' file1 file2 file3
   
3. B <[GZ] >[SZ]
   
4. D <[a1] >[b1]

复制代码

回复 1# Feyiz


   

songyc_2015

回复 1# Feyiz

1. awk 'ARGIND==1{
   
2.     if(FNR==1)next;
   
3.     a[++i]=$1;
   
4.     s=length(s)?s" "$NF:$NF;
   
5.     next
   
6. }
   
7. {
   
8.     FIELDWIDTHS=s;
   
9.     $0=$0;
   
10. }
    
11. ARGIND==2{
    
12.     for(i=1;i<=NF;i++)
    
13.         b[FNR,i]=$i
    
14. }
    
15. ARGIND==3{
    
16.     for(i=1;i<=NF;i++)
    
17.     {
    
18.         if (b[FNR,i] != $i)
    
19.         {
    
20.             printf("%s\t<[%s]\t>[%s]\n",a[i], b[FNR,i], $i);
    
21.         }
    
22.     }
    
23. }
    
24. ' 1 2 3
    
25. 
    
26. B       <[GZ]   >[SZ]
    
27. D       <[a1]   >[b1]

复制代码