awk 如何实现行列转换

ywlscpl

写了个通用点的，不论几行X几列都可以，并格式化了输出

1. [root@mylinux tmp]# cat file1
   
2.     1          2
   
3. 数学 80 60
   
4. 语文 70 90
   
5. 
   
6. [root@mylinux tmp]# awk 'NR==1{row=NF;for (i=1;i<=row;i++) r[i]=$i;v=r[1];gsub(/[^#]/," ",v)}NR>1{c[NR-1]=$1;for (i=1;i<=row;i++) r[i]=r[i]"\t"$(i+1)}END{printf v;for (i=1;i<=NR-1;i++) printf "\t"c[i];print "";for (i=1;i<=row;i++) print r[i]}' file1
   
7.         数学    语文
   
8. 1       80      70
   
9. 2       60      90

复制代码

1. [root@mylinux tmp]# cat file
   
2.      001  002  003
   
3. 数学  80   60   88
   
4. 语文  70   90   77
   
5. 英语  81   92   66
   
6. 化学  71   82   76
   
7. [root@mylinux tmp]# awk 'NR==1{row=NF;for (i=1;i<=row;i++) r[i]=$i;v=r[1];gsub(/[^#]/," ",v)}NR>1{c[NR-1]=$1;for (i=1;i<=row;i++) r[i]=r[i]"\t"$(i+1)}END{printf v;for (i=1;i<=NR-1;i++) printf "\t"c[i];print "";for (i=1;i<=row;i++) print r[i]}' file
   
8.         数学    语文    英语    化学
   
9. 001     80      70      81      71
   
10. 002     60      90      92      82
    
11. 003     88      77      66      76

复制代码

[ 本帖最后由 ywlscpl 于 2009-5-27 22:05 编辑 ]

blackold

原来的代码也可以啊。

dayan_he

过来学习

1.   awk 'NR==1{$0="000 "$0}{for(i=1;i<=NF;i++) a[i]=a[i]" "$i;sub("000","   ",a[1])} END{for(i=1;i<=NF;i++)print a[i]}' b  

复制代码

[ 本帖最后由 dayan_he 于 2009-5-29 10:32 编辑 ]