awk练手的小程序－横竖格式转换

jinl

将如下格式的文字：
昔有佳人公孙氏，一舞剑器动四方。
观者如山色沮丧，天地为之久低昂。
霍如羿射九日落，矫如群帝骖龙翔。
来如雷霆收震怒，罢如江海凝清光。
绛唇珠袖两寂寞，晚有弟子传芬芳。
临颍美人在白帝，妙舞此曲神扬扬。
与余问答既有以，感时抚事增惋伤。
先帝侍女八千人，公孙剑器初第一。
五十年间似反掌，风尘鸿洞昏王室。
梨园子弟散如烟，女乐余姿映寒日。
金粟堆前木已拱，瞿塘石城草萧瑟。
玳筵急管曲复终，乐极哀来月东出。
老夫不知其所往，足茧荒山转愁疾。
转换成 ：
老玳金梨五先与临绛来霍观昔
夫筵粟园十帝余颍唇如如者有
不急堆子年侍问美珠雷羿如佳
知管前弟间女答人袖霆射山人
其曲木散似八既在两收九色公
所复已如反千有白寂震日沮孙
往终拱烟掌人以帝寞怒落丧氏
，，，，，，，, ，，，，,
足乐瞿女风公感妙晚罢矫天一
茧极塘乐尘孙时舞有如如地舞
荒哀石余鸿剑抚此弟江群为剑
山来城姿洞器事曲子海帝之器
转月草映昏初增神传凝骖久动
愁东萧寒王第惋扬芬清龙低四
疾出瑟日室一伤扬芳光翔昂方
。。。。。。。。。。。。。

代码如下，已完成中英文混排的问题，解决方法比较粗糙，希望大家指正

1. 
   
2. BEGIN {FS=""}
   
3. {
   
4.     i=1;
   
5.     j=1;
   
6.     while (i<=NF)
   
7.     {
   
8.         if ($i ~ /[ -~]/)
   
9.         {#非中文字符后面补一个空格，使其和中文字符占位一致
   
10.             Filds[j,NR]=$i" ";
    
11.             i++;
    
12.         }
    
13.         else
    
14.         {#我的机器上一个汉字用三位编码表示，所以串接三个字段
    
15.             Filds[j,NR]=$i""$(i+1)""$(i+2);
    
16.             i+=3;
    
17.         }
    
18.         j++;
    
19.     }
    
20.    maxNF=(maxNF<j)?(j-1):maxNF;
    
21. }
    
22. END {
    
23.     for(i=1;i<=maxNF;i++)
    
24.     {
    
25.         for(j=NR;j>=1;j--)
    
26.             if (Filds[i,j]=="")
    
27.                 printf("  ")
    
28.             else
    
29.                     printf("%s",Filds[i,j]);
    
30.         printf("\n");
    
31.    }
    
32. }
    

复制代码

[ 本帖最后由 jinl 于 2008-1-11 20:05 编辑 ]

lgfang

用 cut + paste + rev 也可以

1. 
   
2. [lgfang@fbbox ~/tmp]$ cat test.sh
   
3. #!/usr/local/bin/bash
   
4. col=1
   
5. tmp=$(cut -c $col  test.txt)
   
6. while [ ! -z "$tmp" ] ; do
   
7.     echo  $tmp | paste -s /dev/fd/0 | rev
   
8.     col=$((col+1))
   
9.     tmp=$(cut -c $col  test.txt)
   
10. done
    
11. [lgfang@fbbox ~/tmp]$ ./test.sh
    
12. 老 玳 金 梨 五 先 与 临 绛 来 霍 观 昔
    
13. 夫 筵 粟 园 十 帝 余 颍 唇 如 如 者 有
    
14. 不 急 堆 子 年 侍 问 美 珠 雷 羿 如 佳
    
15. 知 管 前 弟 间 女 答 人 袖 霆 射 山 人
    
16. 其 曲 木 散 似 八 既 在 两 收 九 色 公
    
17. 所 复 已 如 反 千 有 白 寂 震 日 沮 孙
    
18. 往 终 拱 烟 掌 人 以 帝 寞 怒 落 丧 氏
    
19. ， ， ， ， ， ， ， ， ， ， ， ， ，
    
20. 足 乐 瞿 女 风 公 感 妙 晚 罢 矫 天 一
    
21. 茧 极 塘 乐 尘 孙 时 舞 有 如 如 地 舞
    
22. 荒 哀 石 余 鸿 剑 抚 此 弟 江 群 为 剑
    
23. 山 来 城 姿 洞 器 事 曲 子 海 帝 之 器
    
24. 转 月 草 映 昏 初 增 神 传 凝 骖 久 动
    
25. 愁 东 萧 寒 王 第 惋 扬 芬 清 龙 低 四
    
26. 疾 出 瑟 日 室 一 伤 扬 芳 光 翔 昂 方
    
27. 。 。 。 。 。 。 。 。 。 。 。 。 。
    
28. [lgfang@fbbox ~/tmp]$
    
29. [lgfang@fbbox ~/tmp]$
    
30. [lgfang@fbbox ~/tmp]$ cat test.txt
    
31. 昔有佳人公孙氏，一舞剑器动四方。
    
32. 观者如山色沮丧，天地为之久低昂。
    
33. 霍如羿射九日落，矫如群帝骖龙翔。
    
34. 来如雷霆收震怒，罢如江海凝清光。
    
35. 绛唇珠袖两寂寞，晚有弟子传芬芳。
    
36. 临颍美人在白帝，妙舞此曲神扬扬。
    
37. 与余问答既有以，感时抚事增惋伤。
    
38. 先帝侍女八千人，公孙剑器初第一。
    
39. 五十年间似反掌，风尘鸿洞昏王室。
    
40. 梨园子弟散如烟，女乐余姿映寒日。
    
41. 金粟堆前木已拱，瞿塘石城草萧瑟。
    
42. 玳筵急管曲复终，乐极哀来月东出。
    
43. 老夫不知其所往，足茧荒山转愁疾。
    

复制代码

jinl

不等长的语句试过么？
我的awk可以解决中英文混排，不等长语句的问题

nuclearxin

一行就能搞定吧awk  'BEGIN{FS=""}{for(i=1;i<=NF;i++){a[i]=(a[i])?$i""a[i]:$i};wokao=(wokao<NF)?NF:wokao}END{for(x=1;x<=wokao;x++)print a[x]}'

[[i] 本帖最后由 nuclearxin 于 2008-1-15 18:10 编辑 [/i]]

jinl

原帖由 nuclearxin 于 2008-1-15 18:09 发表
一行就能搞定吧awk  'BEGIN{FS=""}{for(i=1;i

这个也能算一行?那其不是所有的程序都是一行

另： 你的代码中英文混排的格式，在我的机器上有问题 (Ubuntu 7.10)

[ 本帖最后由 jinl 于 2008-1-16 09:09 编辑 ]