shell如何根据输入的关键字找出execl中的列，并根据列的flag显示出需要的内容

Desong_Tang

说明：
1. execl文档如下；

name	date	sex	1BU01	1BU02	1BU03
A1	B2	C3	0	0	0
A2	B3	C4	1	0	0
A9	B10	C11	0	1	0
A10	B11	C12	0	0	0
A12	B13	C14	0	0	1
AA1	BB1	CC1	1	0	0
AA2	BB2	CC2	0	1	1

2. 运行shell的时候需要输入【关键字】；
3. 根据关键字查询execl与关键字匹配的列；
4. 列中有flag，分别为【1】和【0】；
5. 若flag为【1】，则显示为【1】的那一行。

例如：输入1BU01，则显示A2, B3, C4; AA1, BB1, CC1。

jason680

回复 1# Desong_Tang

$ awk -vk=1BU01 'FNR==1&&/name/{for(n=1;n<=NF;++n)if($n==k)m=n;next}$m{OFS=", ";NF=3;s=s"; "$0}END{sub("; ","",s);print s}' file
A2, B3, C4; AA1, BB1, CC1

wh7211

回复 1# Desong_Tang

先把excel另存为csv文档1.csv。

1. awk -F"," -vs="1BU01" 'NR==1{for(i=1;i<=NF;i++){t=s==$i?i:t}}{for(i=1;i<=NF;i++){if(i==t&&$i==1){a=a?a";"$1","$2","$3:$1","$2","$3}}}END{print a}' 1.csv

复制代码

输出：
A2,B3,C4;AA1,BB1,CC1

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. chomp(my $k = <STDIN>);
   
6. my ($n) = do {chomp($_ = <DATA>); @ARGV = split(/,/);  grep {$k eq $ARGV[$_]} 0 .. $#ARGV};
   
7. while(<DATA>){
   
8.         chomp(my @items = split(/,/));
   
9.         if($items[$n]){
   
10.                 print;
    
11.         }
    
12. }
    
13. 
    
14. __DATA__
    
15. name,date,sex,1BU01,1BU02,1BU03
    
16. A1,B2,C3,0,0,0
    
17. A2,B3,C4,1,0,0
    
18. A9,B10,C11,0,1,0
    
19. A10,B11,C12,0,0,0
    
20. A12,B13,C14,0,0,1
    
21. AA1,BB1,CC1,1,0,0
    
22. AA2,BB2,CC2,0,1,1
    

复制代码

sunzhiguolu

回复 3# 本友会机友会摄友会
大师，在 where 中如何引用属性？给个例子？

Desong_Tang

大师