合并ip地址问题

chenwenming_zj

如：

cat a.txt
192.168.1
192.168.2
192.168.3
172.19.3
192.16.1
192.16.2
10.0.4

想得到：
192.168.1-192.168.3
172.19.3
192.16.1-192.16.2
10.0.4


请问用awk 或perl 怎么写呀，我的思路是：
把$1.$2放到一个变量里，下一行的$1.$2与这个变量对比，如果相同进行下一个$3的对比，如果$3与上一个值差为1，继续对比直到不为1，打印出第一个$3与最后一次值，但还是没写出来，请教一下大家，谢了！

klainogn

awk 'BEGIN{FS=".";ORS=""}{p=(prefix==$1"."$2);if(p && $3==start+i)next;prefix=$1"."$2;start=$3;i++;if(p){print "-"$3}else{print "\n"$0}}' a.txt
这个有点问题

reyleon

1. [root@centos ~]# cat file
   
2. 192.168.1
   
3. 192.168.11
   
4. 192.168.13
   
5. 192.168.12
   
6. 192.168.14
   
7. 192.168.2
   
8. 192.168.4
   
9. 192.168.3
   
10. 192.168.6
    
11. 172.19.3
    
12. 192.16.1
    
13. 192.16.2
    
14. 10.0.4
    
15. 10.0.3
    
16. 10.0.7
    
17. [root@centos ~]# sort -t. -n -k3 file | awk -f f.awk
    
18. 172.19.3
    
19. 10.0.3-10.0.4
    
20. 10.0.7
    
21. 192.16.1-192.16.2
    
22. 192.168.1-192.168.4
    
23. 192.168.6
    
24. 192.168.11-192.168.14
    
25. [root@centos ~]#
    
26. [root@centos ~]# cat f.awk
    
27. #!/bin/awk
    
28. 
    
29. BEGIN{
    
30.         FS=SUBSEP="."
    
31. }
    
32. {
    
33.         a[$1,$2]=a[$1,$2]?a[$1,$2]OFS$3:$3
    
34. }
    
35. END{
    
36.         for(i in a){
    
37.                 l=split(a[i],s,OFS)
    
38.                 for(j=1;j<=l;j++){
    
39.                         min=s[j]
    
40.                         while(1){
    
41.                                 if(s[j]+1!=s[++j]){
    
42.                                         max=s[--j]
    
43.                                         if(min==max){print i FS min}else{print i FS min"-"i FS max}
    
44.                                         break
    
45.                                 }
    
46.                         }
    
47.                 }
    
48.         }
    
49. }
    
50. [root@centos ~]#

复制代码

rdcwayx

思路很好， 但好像有部分多余了。

1. #!/bin/awk
   
2. 
   
3. BEGIN{
   
4.         FS="."     #  SUBSEP 放在这里有啥讲究吗？
   
5. }
   
6. {
   
7.         a[$1,$2]=a[$1,$2]?a[$1,$2]OFS$3:$3
   
8. }
   
9. END{
   
10.         for(i in a){
    
11.                 l=split(a[i],s,OFS)   # 后面的if判断可以不用。
    
12.                 {
    
13.                         for(j=1;j<=l;j++){
    
14.                                 min=s[j]
    
15.                                 while(1){
    
16.                                         if(s[j]+1!=s[++j]){
    
17.                                                 max=s[--j]
    
18.                                                 if(min==max){print i FS min}else{print i FS min"-"i FS max}
    
19.                                                 break
    
20.                                         }
    
21.                                 }
    
22.                         }
    
23.                 }
    
24.         }
    
25. }
    

复制代码

reyleon

回复 4# rdcwayx


      后面的if确实不需要，多谢指出！ 这种情况已经不是第一次了，我老是会搞糊涂 ，虽然不会有错，但看着显得会很不专业，哈哈

至于用到SUBSEP，是因为写成a[$1,$2],而不是写成a[$1"."$2],不然后面打印a的下标的时候不是少了一个"."么？

rdcwayx

回复 5# reyleon
嗯，确实如此， 这个方法要简便很多。学习了

1. awk的多维数组在本质上是一维数组，更确切一点，awk在存储上并不支持多维数组。awk提供了逻辑上模拟二维数组的访问方式。例 如，array[2,4] = 1这样的访问是允许的。awk使用一个特殊的字符串SUBSEP (\034)作为分割字段，在上面的例子中，关联数组array存储的键值实际上是2\0344。

复制代码

我通常这样做的。

1. BEGIN{
   
2.         FS="."   
   
3. }
   
4. {
   
5.         a[$1 FS $2]=a[$1 FS $2]?a[$1 FS $2]OFS$3:$3
   
6. }

复制代码

chenwenming_zj

多谢klainogn  reyleon  rdcwayx  大神 真的解决我的问题了。

klainogn

awk 'BEGIN{FS=".";ORS=""}{p=(prefix==$1"."$2);v=($3==ip+1);prefix=$1"."$2;before=ip;ip=$3;if(p&&v){a=1;next};if(NR==1){print;next};if(a)print "-"before;print "\n"$0;a=0}'
这个应该可以了，必须赞一下reyleon的思路

rdcwayx

回复 8# klainogn

1. $ cat infile
   
2. 192.168.1
   
3. 192.168.2
   
4. 192.168.3
   
5. 172.19.3
   
6. 192.16.1
   
7. 192.16.2
   
8. 10.0.4
   
9. 172.19.34
   
10. 172.19.35
    
11. 172.19.38
    
12. 10.0.5
    
13. 
    
14. $ awk 'BEGIN{FS=".";ORS=""}{p=(prefix==$1"."$2);v=($3==ip+1);prefix=$1"."$2;before=ip;ip=$3;if(p&&v){a=1;next};if(NR==1){print;next};if(a)print "-"before;print "\n"$0;a=0}'  infile
    
15. 192.168.1-3
    
16. 172.19.3
    
17. 192.16.1-2
    
18. 10.0.4
    
19. 172.19.34-35
    
20. 172.19.38
    
21. 10.0.5

复制代码

10.0.4 和 10.0.5 没有合并。 而且感觉在某些条件下，会漏了最后一行数据的。

damcool

利用power of sort

1. sort -t '.' -k1,1n -k2,2n -k3,3n /tmp/ips|awk -F "." '{r=$1"."$2;if (r!=t || m!=$3-1) {if (n!=m) printf "-"m;printf "\n";printf r"."$3;n=$3;m=$3} else m=$3;t=r}END{if (n!=m) print "-"m}'

复制代码