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

sunzhiguolu

1. perl -alne '$"="\t";if($.==1&&push(@a,map{$F[$_]=~tr/p/p/==2?$_:()}1..$#F)){print"@F[0,@a]";next}print"@F[0,@a]"' f

复制代码

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

ll104567

awk 'NR==1{for(i=1;i<=NF;i++){a=gsub("p","p",$i);if(a==2){b[i]=a}}}{printf $1" "}{for(i in b){printf $i" "}print ""}

RE_HASH

不会awk， 所以：

$>  cat aa| tr -s ' ' |cut -d\  -f $(head -1 aa|grep -oP '\w+'|grep -nP 'site|p.*p'|cut -f1 -d:|tr "\n", ",")9999
site tpp1 ppp4 pop7 pp3
a 1 3 4 5
b 1 3 4 5
c 1 3 4 5
d 1 3 4 5

xiayuu119

太感谢了@！~~~  ll104567   sunzhiguolu  jason680  LikeLx Herowinter  moperyblue  haooooaaa zxy877298415  liion631818  99超人

各位太强大了！ 基本上都顺利运行~！！

涌泉相报·！~~~！各位~！！