有点复杂我不知道标题怎么描述（文本处理）

tyguaike

258定义为A，369定义为B，147定义为C

0000
2580
3678
6571
1987
3825
5391
8302
4367
2317
7789
9426

我要的结果是：共生成三个文件，可以用三个SHELL来生成
258头的文件file1

2580  A580   
5391  A39C   5(这个5是5391－2580之间的间隔)
8302  A30A   1（这个1，是从5391到8302之间的间隔）
2317  A31C   2 （以此类推，这一行258开头的和上一个258开头的行之间的数

369开头的文件file2

3678 B67A
6571 B57C  1
3825 B82A  2
9426 B42B  6

147开头的文件file3

1987  C98C
4367  C98C     4
7789  C78B     2

不知道大家能看得明白吗？

yinyuemi

回复 1# tyguaike

1. $ echo '0000
   
2. 2580
   
3. 3678
   
4. 6571
   
5. 1987
   
6. 3825
   
7. 5391
   
8. 8302
   
9. 4367
   
10. 2317
    
11. 7789
    
12. 9426' |awk 'BEGIN{t["147"]="C";t["258"]="A";t["369"]="B";
    
13. for(i=1;i<=split("147|258|369",a,"|");i++){for(j=1;j<=split(a[i],b,"");j++){m[b[j]]=a[i]"|"t[a[i]]}}
    
14. }
    
15. {s=substr($0,1,1);md=substr($0,2,2);e=substr($0,4,1);
    
16. x=NR-n[m[s]];
    
17. if(s in m){print $0,(gensub(/[0-9]+\|/,"",1,m[s]) md gensub(/[0-9]+\|/,"",1,(m[e]?m[e]:e))),n[m[s]]?x:"" > gensub(/\|.*/,"",1,m[s])".txt";
    
18. n[m[s]]=NR;}
    
19. }'
    
20. 
    
21. head 147.txt 258.txt 369.txt
    
22. ==> 147.txt <==
    
23. 1987 C98C
    
24. 4367 C36C 4
    
25. 7789 C78B 2
    
26. 
    
27. ==> 258.txt <==
    
28. 2580 A580
    
29. 5391 A39C 5
    
30. 8302 A30A 1
    
31. 2317 A31C 2
    
32. 
    
33. ==> 369.txt <==
    
34. 3678 B67A
    
35. 6571 B57C 1
    
36. 3825 B82A 2
    
37. 9426 B42B 6
    
38. 
    

复制代码

tyguaike

yinyuemi 发表于 2012-10-05 10:50
回复 1# tyguaike

dong@dong-System-Product-Name:~/cp$ echo '0000
> 2580
> 3678
> 6571
> 1987
> 3825
> 5391
> 8302
> 4367
> 2317
> 7789
> 9426' |awk 'BEGIN{t["147"]="C";t["258"]="A";t["369"]="B";
> for(i=1;i<=split("147|258|369",a,"|");i++){for(j=1;j<=split(a,b,"");j++){m[b[j]]=a"|"t[a]}}
> }
> {s=substr($0,1,1);md=substr($0,2,2);e=substr($0,4,1);
> x=NR-n[m];
> if(s in m){print $0,(gensub(/[0-9]+\|/,"",1,m) md gensub(/[0-9]+\|/,"",1,(m[e]?m[e]:e))),n[m]?x:"" > gensub(/\|.*/,"",1,m)".txt";
> n[m]=NR;}
> }'
awk: line 9: function gensub never defined
awk: line 9: function gensub never defined
awk: line 9: function gensub never defined
出这个错了

怎么把你的代码作成.sh文件呀

yinyuemi

回复 3# tyguaike

1. cat f.awk
   
2. 
   
3. BEGIN{t["147"]="C";t["258"]="A";t["369"]="B";
   
4. for(i=1;i<=split("147|258|369",a,"|");i++){for(j=1;j<=split(a[i],b,"");j++){m[b[j]]=a[i]"|"t[a[i]]}}
   
5. }
   
6. {s=substr($0,1,1);md=substr($0,2,2);e=substr($0,4,1);
   
7. x=NR-n[m[s]];
   
8. if(s in m){temp=(m[e]?m[e]:e);temp=substr(temp,length(temp),1)
   
9. print $0,(substr(m[s],length(m[s]),1) md temp),n[m[s]]?x:"" > substr(m[s],1,length(m[s])-2)".txt";
   
10. n[m[s]]=NR;}
    
11. }
    
12. 
    
13. awk -f f.awk file
    

复制代码

tyguaike

yinyuemi 发表于 2012-10-05 22:57
回复 3# tyguaike

不好意思呀，好像我不会用呀。你看看我用得对不对呀！

1. dong@dong-System-Product-Name:~/cp$ cat 147.awk
   
2. # 147,258,369,归类法
   
3. # awk -f 147.awk file
   
4. 
   
5. BEGIN{t["147"]="C";t["258"]="A";t["369"]="B";
   
6. for(i=1;i<=split("147|258|369",a,"|");i++){for(j=1;j<=split(a[i],b,"");j++){m[b[j]]=a[i]"|"t[a[i]]}}
   
7. }
   
8. {s=substr($0,1,1);md=substr($0,2,2);e=substr($0,4,1);
   
9. x=NR-n[m[s]];
   
10. if(s in m){temp=(m[e]?m[e]:e);temp=substr(temp,length(temp),1)
    
11. print $0,(substr(m[s],length(m[s]),1) md temp),n[m[s]]?x:"" > substr(m[s],1,length(m[s])-2)".txt";
    
12. n[m[s]]=NR;}
    
13. }
    
14. dong@dong-System-Product-Name:~/cp$ cat 147test
    
15. 0000
    
16. 2580
    
17. 3678
    
18. 6571
    
19. 1987
    
20. 3825
    
21. 5391
    
22. 8302
    
23. 4367
    
24. 2317
    
25. 7789
    
26. 9426
    
27. dong@dong-System-Product-Name:~/cp$ awk -f 147.awk 147test
    
28. dong@dong-System-Product-Name:~/cp$
    

复制代码

tyguaike

哪个大哥帮忙看一下

yinyuemi

回复 6# tyguaike


    脚本运行完，会生成147.txt，258.txt和369.txt

jason680

回复 1# tyguaike

How about this

# echo -e '0000\n2580\n3678\n6571
1987\n3825\n5391\n8302\n4367\n2317\n7789\n9426' |
awk -F '' 'BEGIN{a[0]="0";a[1]="C";a[2]="A";a[3]="B"}{if($1==0)next;t=($1-1)%3+1;w=a[t]$2$3a[($4-1)%3+1];p="";if(c[t])p=NR-c[t];c[t]=NR;f=(t+1)%3+1;print $0,w,p > "file"f}'

# head file1 file2 file3
==> file1 <==
2580 A580
5391 A39C 5
8302 A30A 1
2317 A31C 2

==> file2 <==
3678 B67A
6571 B57C 1
3825 B82A 2
9426 B42B 6

==> file3 <==
1987 C98C
4367 C36C 4
7789 C78B 2

   

tyguaike

yinyuemi 发表于 2012-10-11 16:37
回复 6# tyguaike

是哦，我的目录下太乱了。呵呵
谢谢！

tyguaike

jason680 发表于 2012-10-11 16:54
回复 1# tyguaike

How about this

是的，你的也是对了。不错。不过为什么每个码前面加个n呀
你这个好像代码还少一些