如何使用awk分割多列数据

shallowmy

cat awk.txt
1,2,3,4,33,44
a,b,c,d,r,4

各个数据以逗号分割的，
想根据第一行的数据中有3的数据，则输出这一列，输出如下：  
3,c  
33,r

大神求指导。。

haooooaaa

1. awk -F, 'NR==1{for(i=1;i<=NF;i++)if($i~"3")a[i]=$i}NR>1{for(i in a)a[i]=a[i]","$i}END{for(i in a)print a[i]}' file

复制代码

shallowmy

啊，赞，谢谢你，弄了一下午没有出来的结果几分钟就搞定了。    学习了

moperyblue

1. awk -F, -v p="3" 'NR==1{for(i=1;i<=NF;i++)if($i~p)a[i]=1}{for(i=1;i<=NF;i++)if(a[i])b[i]=b[i]?b[i] FS $i:$i}END{for(i in b)print b[i]}' awk.txt

复制代码

sunzhiguolu

1. perl -F/,/ -ne 'chomp;if($.==1){@N=@F;@n=grep{$F[$_]=~/3/}0..$#F;next}print join(",",$N[$_],$F[$_]),"\n" for @n' f

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hMap = do {my $n = -1; map {$n++; /3/ ? ($n, $_) : ()} split (/,/, scalar <DATA>)};
   
6. while (defined (my $line = <DATA>)){
   
7.     chomp ($line);
   
8.     print join (",", $hMap{$_}, @{[split(/,/,$line)]}[$_]), "\n" for sort {$a <=> $b} keys %hMap;
   
9. }
   
10. 
    
11. __DATA__
    
12. 1,2,3,4,33,44
    
13. a,b,c,d,r,4

复制代码

jcdiy0601

1. awk 'BEGIN{FS=","}NR==1{for(i=1;i<=NF;i++){if($i~/3/){a[i]=$i}}}NR>1{for(i in a){a[i]=a[i]","$i}}END{for(i in a)print a[i]}' file
   
2. 33,r
   
3. 3,c
   

复制代码