求助简单awk提取匹配列的问题！

xiayuu119

由于列很多，就想找表头的 特征列。

site        tpp1        ho3        ppp4        pop7        pp3        ...
a        1        2        3        4        5
b        1        2        3        4        5
c        1        2        3        4        5
d        1        2        3        4        5
.
.
.


提取 表头匹配 第一行只含有2个“p”  的 列。

site        tpp1        pop7        pp3        ...
a        1        4        5
b        1        4        5
c        1        4        5
d        1        4        5
.
.
.

拜托各位大神了！~

liion631818

1. awk 'NR==1{for(i=1; i<=NF;i++)if($i ~ "p.*p" || i==1){a[i]++; printf $i"\t"}print ""}NR>1{for(i=1; i<=NF;i++)if(i in a)printf $i"\t";print ""}'
   

复制代码

回复 1# xiayuu119


   

zxy877298415

1. awk '{if(NR==1) {printf $1"\t";for(i=2;i<=NF;i++) {t=split($i,a,"");for(j=1;j<=t;j++) {if(a[j]=="p") s++}if(s==2) {b[i]=1;printf $i"\t"};s=0}print ""}else {printf $1"\t";for(i=2;i<=NF;i++)  if(b[i]) printf $i"\t";print ""}}' file
   
2. site    tpp1    pop7    pp3
   
3. a       1       4       5
   
4. b       1       4       5
   
5. c       1       4       5
   
6. d       1       4       5

复制代码

回复 1# xiayuu119


   

zxy877298415

1. awk '{if(NR==1) {printf $1"\t";for(i=2;i<=NF;i++) {t=split($i,a,"");for(j=1;j<=t;j++) {if(a[j]=="p") s++}if(s==2) {b[i]=1;printf $i"\t"};s=0}print ""}else {printf $1"\t";for(i=2;i<=NF;i++)  if(b[i]) printf $i"\t";print ""}}' file
   
2. site    tpp1    pop7    pp3
   
3. a       1       4       5
   
4. b       1       4       5
   
5. c       1       4       5
   
6. d       1       4       5

复制代码

回复 1# xiayuu119


   

haooooaaa

1. awk 'NR==1{for(i=2;i<=NF;i++)a[i]=split($i,t,"p")}{for(i=1;i<=NF;i++)if(a[i]==3||i==1)printf $i"\t";print ""}'

复制代码

moperyblue

1. awk 'NR==FNR{if(NR==1)for(i=2;i<=NF;i++)if(gsub(/p/,"&",$i)==2)a[i]=1;next}{printf $1; for(i=2;i<=NF;i++)if(a[i])printf FS $i;print""}' file file|column -t

复制代码

Herowinter

回复 1# xiayuu119

1. 
   
2. awk 'NR==1{a[1];for(i=2;i<=NF;i++)if(gsub(/p/,"p",$i)==2)a[i]} {for(i=1;i<=NF;i++)if(i in a)printf i==1?$i:"\t"$i;print ""}' i
   
3. site    tpp1    pop7    pp3
   
4. a       1       4       5
   
5. b       1       4       5
   
6. c       1       4       5
   
7. d       1       4       5
   

复制代码

LikeLx

1. awk 'NR==1{for(i=1;i++<NF;)if(gsub(/p/,"&",$i)!=2)a[i]}{for(n in a)$n=""}1'

复制代码

jason680

$ awk -vt=2 -vk="p" 'NR==1{for(n=2;n<=NF;++n)if(gsub(k,k,$n)==t)a[++c]=n}{p=$1;for(n=1;n<=c;++n)p=p"\t"$a[n];print p}' FILE
site        tpp1        pop7        pp3
a        1        4        5
b        1        4        5
c        1        4        5
d        1        4        5