in reply to Re: IP Iterator
in thread IP Iterator

3) yes this works well thank you. it makes sense but to think as 32bit rather than 4 individual byte. change made. still testing the code.

Replies are listed 'Best First'.
Re^3: IP Iterator
by camlet (Novice) on Apr 17, 2008 at 16:35 UTC
    sub nextIP { my ($ip) = @_; return $ip+1; } didnt work the user doesnt enter binary it still needs to be transformed with if.
[reply]

      Nope. All you need is the following: 

      sub ip_fr_dotted { unpack 'N', pack 'C4', split /\./, $_[0] }
sub ip_to_dotted { join '.', unpack 'C4', pack 'N', $_[0] }

my $start = ip_fr_dotted('10.0.0.0');
my $end   = ip_fr_dotted('10.0.0.255');

for (my $ip=$start; $ip<=$end; $ip++) {
   print(ip_to_dotted($ip), "\n");
}

      [download]

      I didn't use for my $ip ($start..$end) since it doesn't work for IP addresses ≥ 128.0.0.0 on a 32-bit system.

[reply]
[d/l]
[select]
      your recommeded solution worked also for subnet level increases. thank you. making the change now. 
      10.0.1.252
10.0.1.253
10.0.1.254
10.0.1.255
10.0.2.0
10.0.2.1
10.0.2.2
10.0.2.3
10.0.2.4
10.0.2.5

      [download]
      script: 
      sub ip_fr_dotted { unpack 'N', pack 'C4', split /\./, $_[0] }
sub ip_to_dotted { join '.', unpack 'C4', pack 'N', $_[0] }

my $start = ip_fr_dotted('10.0.0.200');
my $end   = ip_fr_dotted('10.0.2.23');

for (my $ip=$start; $ip<=$end; $ip++) {
   print(ip_to_dotted($ip), "\n");
}

      [download]
[reply]
[d/l]
[select]

In Section Cool Uses for Perl