perl如何實(shí)現(xiàn)ip地址最后一位遞增

lida5336

請(qǐng)教如何實(shí)現(xiàn)ip地址最后一位遞增, 比如ip地址是100.1.1.1, 想要ip地址100.1.1.2, 100.1.1.3.....,

只是一個(gè)紅薯

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. use strict;
   
4. use warnings;
   
5. print "please input the ip adr>";
   
6. my($a,$b,$c,$d)=split /\./,<STDIN>;
   
7. for(;$d++;){
   
8. say join '.',($a,$b,$c,$d) if $d<=255;
   
9. }

復(fù)制代碼

hailongchang

將dot-decimal格式的IP地址轉(zhuǎn)化為32-bit number ,然后number + 1,再轉(zhuǎn)化回來。

rubyish

也來試試 ~ :

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. 
   
4. sub IP {
   
5.     my $ipr = shift;
   
6.     my ( $B, $T ) = $$ipr =~ /(.*)(\d+)/;
   
7.     sub { $$ipr = $B . ++$T }
   
8. }
   
9. 
   
10. my $ip  = '100.1.1.1';
    
11. my $inc = IP( \$ip );
    
12. 
    
13. say $ip;
    
14. say join ', ', map { &$inc } 1 .. 3;
    
15. say $ip;

復(fù)制代碼

rubyish

1. 100.1.1.1
   
2. 100.1.1.2, 100.1.1.3, 100.1.1.4
   
3. 100.1.1.4
   

復(fù)制代碼

大米白面

1. 
   
2. say incIP('100.1.1.1');
   
3. 
   
4. sub incIP {
   
5.         my $ip = unpack 'L', pack('C4', reverse split /\./, shift);
   
6.         return join '.', reverse unpack('C4', pack('L', ++$ip));
   
7. }
   

復(fù)制代碼