Awk 在与第一列相同的列中查找字母并打印

Awk 在与第一列相同的列中查找字母并打印,awk,split,match,Awk,Split,Match,我有一个带有值的表,我必须找到匹配项:第一列与其他列匹配并打印匹配项 输入: A:0 A:0.7541 A:0.7396 A:0.7694 A:0 0:0 0:0 0:0 C:0 C:0.8408 C:0.8459 C:0.7939 G:0 G:0.3415 G:0.3290 G:0.4228 G:0 G:0.0343 G:0.0378 T:8.237e06,G:0.02437 C:0 C:0.3895 C:0

我有一个带有值的表,我必须找到匹配项:第一列与其他列匹配并打印匹配项

输入:

A:0  A:0.7541   A:0.7396    A:0.7694
A:0  0:0        0:0         0:0
C:0  C:0.8408   C:0.8459    C:0.7939
G:0  G:0.3415   G:0.3290    G:0.4228
G:0  G:0.0343   G:0.0378    T:8.237e06,G:0.02437
C:0 C:0.3895    C:0.3837    A:8.255e06,T:8.255e06,C:0.3623
输出:

    A:0  0.7541     0.7396      0.7694
    A:0  0          0           0
    C:0  0.8408     0.8459      0.7939
    G:0  0.3415     0.3290      0.4228
    G:0  0.0343     0.0378      0.02437
    C:0  0.3895     0.3837      0.3623
最后一排。。如果C在第二列中,在本例中,只打印匹配字母C后的数字,所有列都相同,但可能有更多的值被“,”分隔。因此,在本例中,仅为此行打印包含匹配字母C的数字。 我写道:

awk '{split ($1,a,":");split ($2,b,":"); split($3,c,":"); split($4,d,":");
      if(a[1]=b[1] && a[1]=c[1] && a[1]==d[1]) print $0}' /home/fil/Desktop/uprava.txt

awk
救援

$  awk '{key=substr($1,1,2);
         n=split($NF,last,",");
         if(n>1) for(i=1;i<=n;i++) if(last[i]~key) {$NF=last[i]; break}
         for(i=2;i<=NF;i++) sub(key,"",$i); 
         print}' file | column -t

A:0  0.7541  0.7396  0.7694
A:0  0:0     0:0     0:0
C:0  0.8408  0.8459  0.7939
G:0  0.3415  0.3290  0.4228
G:0  0.0343  0.0378  0.02437
C:0  0.3895  0.3837  0.3623
$awk'{key=substr($1,1,2);
n=拆分($NF,最后一个“,”);
如果(n>1)为(i=1;i