提取相应列（域）

mswsg

文件有很多列，需要按照列名提取数据，需要提取的列名在另外一个文件放着。
举个例子

1.         9646769066_R01C01        9646769066_R01C02        9646769066_R02C01        9646769066_R02C02        9646769066_R03C01        9646769066_R03C02        9646769066_R04C01        9646769066_R04C02
   
2. BobWhite_c10015_641        GG        GG        GG        GG        GG        GG        GG        GG
   
3. BobWhite_c10016_302        AA        AA        AA        AA        AA        AA        AA        AA
   
4. BobWhite_c10016_431        TT        TT        TT        TT        TT        TT        TT        TT

复制代码

需要提取的列名

1. 9646769066_R02C01
   
2. 9646769066_R02C02

复制代码

结果

1.         9646769066_R02C01        9646769066_R02C02
   
2. BobWhite_c10015_641        GG        GG
   
3. BobWhite_c10016_302        AA        AA
   
4. BobWhite_c10016_431        TT        TT

复制代码

ly5066113

回复 1# mswsg


try:

1. awk 'NR==FNR{a[++n]=$1;next}FNR==1{for(i=1;i<=n;i++)for(j=1;j<=NF;j++)if(a[i]==$j){a[i]=j+1;printf "\t"$j};print "";next}{printf $1;for(i=1;i<=n;i++)printf "\t"$a[i];print ""}' file2 file1

复制代码

jcdiy0601

...没看懂题

mswsg

好吧，我实在不知道再怎么描述了，文件第一行是各列的名字，我要按照列的名字提取我需要的列，不知道这样明白吗？回复 2# jcdiy0601


   

yestreenstars

1. [root@localhost ~]# awk 'NR==FNR{a[$1];next}{if(FNR==1){for(i=0;i++<NF;)if($i in a){printf "\t"$i;b[++l]=i}print ""}else{printf $1;for(i=0;i++<l;)printf "\t"$(b[i]);print ""}}' b a
   
2.         9646769066_R02C01        9646769066_R02C02
   
3. BobWhite_c10015_641        GG        GG
   
4. BobWhite_c10016_302        AA        AA
   
5. BobWhite_c10016_431        TT        TT
   
6. [root@localhost ~]# cat a
   
7.         9646769066_R01C01        9646769066_R01C02        9646769066_R02C01        9646769066_R02C02        9646769066_R03C01        9646769066_R03C02        9646769066_R04C01        9646769066_R04C02
   
8. BobWhite_c10015_641        GG        GG        GG        GG        GG        GG        GG        GG
   
9. BobWhite_c10016_302        AA        AA        AA        AA        AA        AA        AA        AA
   
10. BobWhite_c10016_431        TT        TT        TT        TT        TT        TT        TT        TT
    
11. [root@localhost ~]# cat b
    
12. 9646769066_R02C01
    
13. 9646769066_R02C02
    
14. [root@localhost ~]#

复制代码

mswsg

谢谢，一直以来及时的帮助回复 5# yestreenstars


   

reb00t

php练习～～

1. <?php
   
2. $tmparr=array("9646769066_R02C01","9646769066_R02C02");
   
3. $file = file('200.txt');
   
4. $key=array();
   
5. for ($i=0; $i <count($file) ; $i++) {
   
6.         if($i==0){
   
7.                   $arr = preg_split('/[ ]+/', $file[$i]);
   
8.                   for ($m=0; $m <count($tmparr)  ; $m++) {
   
9.                             $key[] = array_search($tmparr[$m], $arr)+1;
   
10.                             echo "\t".$tmparr[$m];
    
11.                   }
    
12.                   echo "\n";
    
13.                 }else{
    
14.                   $arr=preg_split('/[ ]+/', $file[$i]);
    
15.                     echo $arr[0]."\t";
    
16.                   for ($m=0; $m <count($key) ; $m++) {
    
17.                      echo $arr[$key[$m]]."\t";
    
18.                   }                  
    
19.          echo "\n";
    
20.                 }
    
21.        
    
22. }
    
23. ?>
    
24. 
    
25. 结果：
    
26.         9646769066_R02C01        9646769066_R02C02
    
27. BobWhite_c10015_641        GG        GG       
    
28. BobWhite_c10016_302        AA        AA       
    
29. BobWhite_c10016_431        TT        TT       
    
30. 
    
31. [Finished in 0.2s]

复制代码