awk 如何實(shí)現(xiàn)行列轉(zhuǎn)換

ywlscpl

寫了個(gè)通用點(diǎn)的，不論幾行X幾列都可以，并格式化了輸出

1. [root@mylinux tmp]# cat file1
   
2.     1          2
   
3. 數(shù)學(xué) 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.         數(shù)學(xué)    語文
   
8. 1       80      70
   
9. 2       60      90

復(fù)制代碼

1. [root@mylinux tmp]# cat file
   
2.      001  002  003
   
3. 數(shù)學(xué)  80   60   88
   
4. 語文  70   90   77
   
5. 英語  81   92   66
   
6. 化學(xué)  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.         數(shù)學(xué)    語文    英語    化學(xué)
   
9. 001     80      70      81      71
   
10. 002     60      90      92      82
    
11. 003     88      77      66      76

復(fù)制代碼

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

blackold

原來的代碼也可以啊。

dayan_he

過來學(xué)習(xí)

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  

復(fù)制代碼

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