figgerips.pl

Here’s a quick script to figger out [sub]totals of a list of IP ranges.  Easy, but handy.

Like:

$ cat testips.txt
10.1.16/24
10.7
10.14.15.1-10.14.15.127
10.22.3.0     

$ ./figgerips.pl < testips.txt
IP Range: 10.1.16/24
Size: 256
Total: 256    

IP Range: 10.7
Size: 1
Total: 257     

IP Range: 10.14.15.1-10.14.15.127
Size: 127
Total: 384     

IP Range: 10.22.3.0
Size: 1     

Total: 385

#!/usr/bin/perl
# usage: ./figgerips.pl < testips.txt
use Net::IP;
my $total;
$total = 0;
while (<>)
{
 my $ip = new Net::IP ($_) or die (Net::IP::Error());
 $total += $ip->size();
 print ("IP Range: $_" . "Size: " . $ip->size()."\n");
 print "Total: " . $total . "\n\n";
}