求助：如何将数据域中一列转为一行？

wmjie

1. 
   
2. awk -F, '{for(i=1;i<=NF;i++){a[NR"_"i]=$i}}END{for(m=1;m<=i;m++){for(n=1;n<=NR;n++){printf("%s,", a[n"_"m])}print "\n"}}'
   

复制代码

wmjie

原帖由 "无奈何" 发表：

也谢谢你的回答，可惜我在XP下没有 shell环境。

cygwin :em11:  :em11:  :em11:  :em11:

wmjie

再来个awk转换的。

1. 
   
2. awk 'BEGIN{FS=",";OFS=","}
   
3.         {for(i=1;i<=NF;i++)
   
4.         {
   
5.                 if(b[i]){b[i]=b[i]OFS$i}
   
6.                 else{b[i]=$i}}
   
7.         }
   
8.     END{
   
9.         for(j=1;j<=i;j++)
   
10.         {
    
11.                 print b[j]
    
12.         }
    
13. }'
    

复制代码

wmjie

原帖由 "hoenixingliu" 发表：



看懂了些,不过在n的循环里为什么不用FNR而用NR?
NR是已读记录数,觉得逻辑上过不去呢~~~~~

只有一个文件，所以两个是相等的。

这个比较通用

1. 
   
2. 
   
3. awk 'BEGIN{FS=",";OFS=","}
   
4.        {for(i=1;i<=NF;i++)
   
5.        {
   
6.                if(b[i]){b[i]=b[i]OFS$i}
   
7.                else{b[i]=$i}}
   
8.        }
   
9.    END{
   
10.        for(j=1;j<=i;j++)
    
11.        {
    
12.                print b[j]
    
13.        }
    
14. }'

复制代码