求助--号码段汇总

leezer

有很多文件里面记录的是一些7位数的号码段，比如：
[lize@Fedora ~]$ cat NO_1.txt
1551000 1551001 1551002 1551003 1551004 1551005 1551006 1551007 1551008 1551009 1551010 1551011 1551012 1551013 1551014 1551015 1551016 1551017 1551018 1551019 1551020 1551021 1551022 1551023 1551024 1551025 1551026 1551027 1551028 1551029

要求：
1）7位数的号码段，如果有从0依次递增到9的，就汇总为一个6位数号码段
2）其他无法汇总的，筛选出来，保留

比如 NO_1.txt 的7位数号码段汇总成
155100 155101 155102  三个号码段

求shell脚本，或者awk，prel 脚本的实现方法，谢谢！（以NO_2.txt为例，来实现）

[lize@Fedora ~]$ cat NO_2.txt
1300000 1300010 1300011 1300045 1300046 1300047 1300048 1300049 1300100 1300101 1300102 1300103 1300104 1300105 1300106 1300107 1300108 1300109 1300110 1300111 1300112 1300113 1300114 1300115 1300116 1300117 1300118 1300119 1300120 1300121 1300122 1300123 1300124 1300125 1300126 1300127 1300128 1300129 1300190 1300191 1300192 1300193 1300194 1300195 1300196 1300197 1300198 1300199 1301006 1301007 1301008 1301009 1301010 1301011 1301012 1301019 1301100 1301101 1301102 1301103 1301104 1301105 1301106 1301107 1301108 1301109 1301110 1301111 1301112 1301113 1301114 1301115 1301116 1301117 1301118 1301119 1301120 1301121 1301122 1301123 1301124 1301125 1301126 1301127 1301128 1301129 1301180 1301181 1301182 1301183 1301184 1301185 1301186 1301187 1301188 1301189 1302000 1302001 1302002 1302003 1302004 1302005 1302006 1302007 1302008 1302009 1302100 1302101 1302102 1302103 1302104 1302105 1302106 1302107 1302108 1302109 1302110 1302111 1302112 1302113 1302114 1302115 1302116 1302117 1302118 1302119 1302120 1302121 1302122 1302123 1302124 1302125 1302126 1302127 1302128 1302129 1302190 1302191 1302192 1302193 1302194 1302195 1302196 1302197 1302198 1302199 1303100 1303101 1303102 1303103 1303104 1303105 1303106 1303107 1303108 1303109 1303110 1303111 1303112 1303113 1303114 1303115 1303116 1303117 1303118 1303119 1304100 1304101 1304102 1304103 1304104 1304105 1304106 1304107 1304108 1304109 1304110 1304111 1304112 1304113 1304114 1304115 1304116 1304117 1304118 1304119 1304120 1304121 1304122 1304123 1304124 1304125 1304126 1304127 1304128 1304129 1305100 1305101 1305102 1305103 1305104 1305105 1305106 1305107 1305108 1305109 1305110 1305111 1305112 1305113 1305114 1305115 1305116 1305117 1305118 1305119 1305120 1305121 1305122 1305123 1305124 1305125 1305126 1305127 1305128 1305129 1305130 1305131 1305132 1305133 1305134 1305135 1305136 1305137 1305138 1305139 1305140 1305141 1305142 1305143 1305144 1305145 1305146 1305147 1305148 1305149 1305150 1305151 1305152 1305153 1305154 1305155 1305156 1305157 1305158 1305159 1305160 1305161 1305162 1305163 1305164 1305165 1305166 1305167 1305168 1305169 1305170 1305171 1305172 1305173 1305174 1305175 1305176 1305177 1305178 1305179 1305180 1305181 1305182 1305183 1305184 1305185 1305186 1305187 1305188 1305189 1305190 1305191 1305192 1305193 1305194 1305195 1305196 1305197 1305198 1305199 1307010 1307011 1307012 1307013 1307014 1307015 1307016 1307017 1307018 1307019 1307110 1307111 1307112 1307113 1307114 1307115 1307116 1307117 1307118 1307119 1309042
[lize@Fedora ~]$

li2002

6位号码段

1. 
   
2. xargs -n 1 <NO_2.txt|sort|cut -c1-6|uniq -c|awk '$1==10{print $2}' >file1
   

复制代码

7位号码

1. 
   
2. xargs -n1 <NO_2.txt| grep  -Fvf file1 -
   

复制代码

结果file1

1. 
   
2. 130010
   
3. 130011
   
4. 130012
   
5. 130019
   
6. 130110
   
7. 130111
   
8. 130112
   
9. 130118
   
10. 130200
    
11. 130210
    
12. 130211
    
13. 130212
    
14. 130219
    
15. 130310
    
16. 130311
    
17. 130410
    
18. 130411
    
19. 130412
    
20. 130510
    
21. 130511
    
22. 130512
    
23. 130513
    
24. 130514
    
25. 130515
    
26. 130516
    
27. 130517
    
28. 130518
    
29. 130519
    
30. 130701
    
31. 130711
    

复制代码

7位号码

1. 
   
2. 1300000
   
3. 1300010
   
4. 1300011
   
5. 1300045
   
6. 1300046
   
7. 1300047
   
8. 1300048
   
9. 1300049
   
10. 1301006
    
11. 1301007
    
12. 1301008
    
13. 1301009
    
14. 1301010
    
15. 1301011
    
16. 1301012
    
17. 1301019
    
18. 1309042
    
19. 
    
20. 
    

复制代码

不想在家喂猪

怎么看怎么象联通的。

kwokcn

这样可以吗？

1. 
   
2. awk -v RS="[ \n]" '{s=substr($0,1,6);a[s]=a[s]" "$0;b[s]++}END{for(i in a) if(b[i]==10) printf i" "; else printf a[i]" "; print ""}' URFILE
   

复制代码

codfei

写错了~

[ 本帖最后由 codfei 于 2009-5-14 10:37 编辑 ]

justlooks

不好意思没看清题目，前提文件里没重复号码
awk 'BEGIN{OFS="\n"}{for(i=1;i<NF;i++){print substr($i,1,6);}}' dfile|uniq -c

[ 本帖最后由 justlooks 于 2009-5-14 11:03 编辑 ]

codfei

好像是这个意思

[ 本帖最后由 codfei 于 2009-5-14 11:05 编辑 ]

li2002

哪里不一样？不是分开保存的话就用3楼的

leezer

谢谢，你的可以，满足要求！

deepalley

awk 'BEGIN{RS=" "}{a[substr($1,1,6)]=a[substr($1,1,6)]" "$1}END{for (i in a)print i"--"a}' urfile | sort -k11

没有完全达到要求，当抛砖引玉啦...

130000-- 1300000
130001-- 1300010 1300011
130004-- 1300045 1300046 1300047 1300048 1300049
130100-- 1301006 1301007 1301008 1301009
130101-- 1301010 1301011 1301012 1301019
130904-- 1309042
130010-- 1300100 1300101 1300102 1300103 1300104 1300105 1300106 1300107 1300108 1300109
130011-- 1300110 1300111 1300112 1300113 1300114 1300115 1300116 1300117 1300118 1300119
......
130701-- 1307010 1307011 1307012 1307013 1307014 1307015 1307016 1307017 1307018 1307019
130711-- 1307110 1307111 1307112 1307113 1307114 1307115 1307116 1307117 1307118 1307119