awk输出包含关键字的列

zhxjfl

有这么一个文件:

A B 123C D 123E F 123 G H 123I J K
1 2  3      4    5   6   7   1  1   1   1  1
1 2  1      4    2   6   5   1  1   7   1  1
1 2  2      4    1   6   6   1  1   4   1  1

长度不固定，用空格分隔后得到的数组长度不固定，我想要输出以第一行字符串中123开头的所有列，用awk命令行怎么操作呢。
比如上例中数出的是：
123C 123E 123 123I
3         5    7     1  
1        2     5     7   
2        1     6     4  

求高手解答。

jason680

回复 1# zhxjfl

$ awk 'NR==1{for(n=1;n<=NF;n++)if($n~/^123/)a[++c]=n}{for(n=1;n<=c;n++)printf $a[n]" ";print""}' FILE | column -t
123C  123E  123  123I
3     5     7    1
1     2     5    7
2     1     6    4

   

我是一隻羊

1. awk 'NR==1{for(i=0;i++<NF;){$i~/^123/?b[++j]=i:1}}{for(k=0;k++<j;)s=!s?$b[k]:s"\t"$b[k];print s;s=""}' inputfile
   

复制代码

zsszss0000

awk 'BEGIN{getline;for(i=1;i<=NF;i++)if($i~/123/)a[i]=1;for(b in a)printf $b"\t";printf"\n"}{for(b in a)printf $b"\t";printf"\n"}' file

tuyajie

来个业余的
awk 'BEGIN{getline;for(i=1;i<=NF;i++){if($i~/^123/)a[b++]=i};for(k in a)printf $a[k]" "; printf "\n"}{for(k in a)printf $a[k]" "; printf "\n"}' test

zxy877298415

1. awk '{if(NR==1) {for (i=1;i<=NF;i++) {if($i~/^(123)+/) {printf $i"\t";a[i]=i}}}
   
2. else {for(i=1;i<=NF;i++) if (a[i]) printf  $a[i]"\t"}print ""; }' file
   
3. 123C    123E    123     123I
   
4. 3       5       7       1
   
5. 1       2       5       7
   
6. 2       1       6       4

复制代码

回复 1# zhxjfl


   

zhxjfl

问题解决了，感谢！

jason680 发表于 2015-03-13 17:51
回复 1# zhxjfl

$ awk 'NR==1{for(n=1;n

zhxjfl

这个也可以，一样的感谢！

我是一隻羊 发表于 2015-03-13 17:58

zhxjfl

以上的解法都可以，在此一一谢过！

zl624867243

我水平有限 写一个

#!/bin/bash
t=`awk '/123/ {for(i=1;i<=NF;i++)if($i ~ /123/) print i}' test`
i=`echo $t |awk '{print $1}'`
j=`echo $t |awk '{print $2}'`
k=`echo $t |awk '{print $3}'`
w=`echo $t |awk '{print $4}'`

awk -v a=$i -v b=$j -v c=$k -v d=$w '{print $a,$b,$c,$d}' test | column -t