合并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与最后一次值，但还是没写出来，请教一下大家，谢了！

mcshell

如果出现192.168.6  192.168.8  这种不连续的 又该如何呢。。

chenwenming_zj

回复 2# mcshell


    如果不连续直接打印出来就行，主要是合并连续的部分。

mcshell

try回复 3# chenwenming_zj

1. use strict;
   
2. use warnings;
   
3. my $h;
   
4. map { /((?:\d+\.){2})(\d+)(?{push @{$h->{$1}},$2})/ } <DATA>;
   
5. for my $k ( keys %$h ) {
   
6.     my $str = join ",", sort { $a <=> $b } @{ $h->{$k} };
   
7.     1 while ( $str =~
   
8. s/(-)?(\d+)(?!\d),(\d++)(?(?{$3 != $2+1})(?!))/  $1 ?  "-$3" : "$2-$3" /e
   
9.     );
   
10.     print "$k$_\n" for ( split /,/, $str );
    
11. }
    
12. __DATA__
    
13. 192.168.1
    
14. 192.168.2
    
15. 192.168.3
    
16. 172.19.3
    
17. 192.16.1
    
18. 192.16.2
    
19. 10.0.4
    
20. 192.168.7
    
21. 192.168.8
    
22. 192.168.10

复制代码

inchonline

不明觉厉
s/(-)?(\d+)(?!\d),(\d++)(?(?{$3 != $2+1})(?!))/  $1 ?  "-$3" : "$2-$3" /e这个看了半天没看懂，
(-)?怎么理解，),(\d++)怎么理解，(?(?{$3 != $2+1})(?!)) 第一层的(?    )怎么理解，mcshell解释一下
看着你的签名头晕啊
回复 4# mcshell


   

rubyish

如果:

1. #!/usr/bin/perl
   
2. my %h;
   
3. 
   
4. print map {
   
5.     my $k = $_;
   
6.     my @a = sort { $a <=> $b } keys %{ $h{$k} };
   
7.     my @b = [ shift @a ];
   
8.     $_ - $b[-1][-1] > 1 && push @b, [$_] or $b[-1][1] = $_ for @a;
   
9.     map $k . join( "-$k", @$_ ) . $/, @b;
   
10. } sort do { map /(.*\.)(.*)/ && $h{$1}{$2}++, <DATA>; keys %h };
    
11. 
    
12. __DATA__
    
13. 192.168.1
    
14. 192.168.2
    
15. 192.168.3
    
16. 172.19.3
    
17. 192.16.1
    
18. 192.16.2
    
19. 10.0.4
    
20. 192.168.1
    
21. 192.168.5
    
22. 192.168.7

复制代码

mcshell

回复 5# inchonline


    哈哈~~
   \d++保证第二个数字不会截断。
  (-)?，因为后面有可能做了替换"-"，所以在此匹配的时候有可能有"-"；
  (?(?{$3 != $2+1})(?!))  是一个if判断语句，如果$3不等于$2+1也就是不连续的时候，就强制回朔，如果没这个语句就会导致不连续的数字死循环，
  这里的(?!)等同于(*F),(*FAIL)具体可以参照perlre
   http://perldoc.perl.org/perlre.h ... cking-Control-Verbs{:3_200:}

  

mcshell

还可以换成这样的正则 ，感觉好理解些{:3_201:}

1. use strict;
   
2. use warnings;
   
3. my $h;
   
4. map { /((?:\d+\.){2})(\d+)(?{push @{$h->{$1}},$2})/ } <DATA>;
   
5. for my $k ( keys %$h ) {
   
6.     my $str = join ",", sort { $a <=> $b } @{ $h->{$k} };
   
7. 1 while($str =~ s/(\d+)[,-]((?<=-)\d+|(?<=,)(??{$1+1})),((??{$2+1}))/$1-$3/g);
   
8. $str =~ s/(\d+),((??{$1+1}))/$1-$2/g;
   
9.     print "$k$_\n" for ( split /,/, $str );
   
10. }
    
11. __DATA__
    
12. 192.168.1
    
13. 192.168.2
    
14. 192.168.3
    
15. 172.19.3
    
16. 192.16.1
    
17. 192.16.2
    
18. 10.0.4
    
19. 192.168.7
    
20. 192.168.8
    
21. 192.168.10

复制代码

104359176

1. #!perl
   
2. 
   
3. use 5.010;
   
4. 
   
5. my @ips = <DATA>;
   
6. my $init_ip = 0;
   
7. my $first_mode = 0;
   
8. my $last_ip = "";
   
9. foreach my $ip (@ips) {
   
10.         chomp $ip;
    
11.         my $ip_number = $ip;
    
12.         $ip_number =~ s/\.//g;
    
13.         my $ip_step = abs($ip_number - $init_ip);
    
14.         if ($ip_step > 1) {
    
15.                 if ($first_mode == 1) { print "$last_ip\n$ip" }
    
16.                 else { print "\n$ip" }
    
17.                 $first_mode = 0;
    
18.         }
    
19.         elsif ($first_mode == 0) {
    
20.                 print "-";
    
21.                 $first_mode = 1;
    
22.         }
    
23.         $init_ip = $ip_number;
    
24.         $last_ip = $ip;
    
25. }
    
26. 
    
27. __DATA__
    
28. 192.168.1
    
29. 192.168.2
    
30. 192.168.3
    
31. 172.19.3
    
32. 192.16.1
    
33. 192.16.2
    
34. 10.0.4
    

复制代码

C:\WINDOWS\system32\cmd.exe /c perl hebin.pl

192.168.1-192.168.3
172.19.3
192.16.1-192.16.2
10.0.4
Hit any key to close this window...