awk格式化输出文本？

huang6894

求个脚本：
如果我想对一个每行70个字符的文本处理，让它生成每列10个字符，每行6列，并输出字符数怎么弄呀？
如：

1. TINHTFGNPVIPFKDGIYFAATEKSNVVRGWVFGSTMNNKSQSVIIINNSTNVVIRACNFELCDNPFFAV
   
2. SKPMGTQTHTMIFDNAFNCTFEYISDAFSLDVSEKSGNFKHLREFVFKNKDGFLYVYKGYQPIDVVRDLP

复制代码

生成：

1. 
   
2. 1        TINHTFGNPV        IPFKDGIYFA        ATEKSNVVRG        WVFGSTMNNK        SQSVIIINNS        TNVVIRACNF
   
3. 61        ELCDNPFFAV        SKPMGTQTHT        MIFDNAFNCT        FEYISDAFSL        DVSEKSGNFK        HLREFVFKNK
   
4. 121        DGFLYVYKGY        QPIDVVRDLP
   

复制代码

yestreenstars

1. [root@localhost ~]# cat i
   
2. TINHTFGNPVIPFKDGIYFAATEKSNVVRGWVFGSTMNNKSQSVIIINNSTNVVIRACNFELCDNPFFAV
   
3. SKPMGTQTHTMIFDNAFNCTFEYISDAFSLDVSEKSGNFKHLREFVFKNKDGFLYVYKGYQPIDVVRDLP
   
4. [root@localhost ~]# awk -F '' '{for(i=1;i<=NF;i+=10)a[++n]=substr($0,i,10)}END{m=1;for(i=1;i<n;i++){if(i%6==1){printf m"\t";m+=60}if(i%6)printf a[i]"\t";else print a[i]}print a[n]}' i
   
5. 1       TINHTFGNPV      IPFKDGIYFA      ATEKSNVVRG      WVFGSTMNNK      SQSVIIINNS      TNVVIRACNF
   
6. 61      ELCDNPFFAV      SKPMGTQTHT      MIFDNAFNCT      FEYISDAFSL      DVSEKSGNFK      HLREFVFKNK
   
7. 121     DGFLYVYKGY      QPIDVVRDLP
   
8. [root@localhost ~]#

复制代码

WilliBhamlll

回复 1# huang6894

1. awk -F '' '{for(i=1;i<=length($0);i+=10){++n;s=s?s"\t"substr($0,i,10):substr($0,i,10);if(n==6){print (NR-1)*60+1"\t"s;s=n=""}}}END{if(s)print NR*60+1"\t"s}' file
   

复制代码

li0924

回复 8# Shell_HAT
是的；但代码还是可以修改，
开始本来是没打算贴出来的；因为这代码没什么可行性！


   

Shell_HAT

回复 4# li0924


    三行文本的时候会出问题

huang6894

回复 6# expert1


    o(︶︿︶)o 唉~初学者。什么都不会啊~

expert1

回复 1# huang6894


    fold
楼主学生物的？我blog有个差不多一样的问题。

huang6894

回复 4# li0924


    膜拜ing~

li0924

看到楼上的代码这么简洁！佩服啊！我也附上我复杂的代码

1. awk '{getline d;str=$0 d;for(i=10;i<=length(str);i=i+10)printf("%d\t%10s\n",i-9,substr(str,i-10,10));}' infile|awk '{s=$1%60==1?"\n"$1FS$2:sFS"\t"$2;printf s}'

复制代码

huang6894

回复 2# 关阴月飞


    谢谢关哥