range2cidrlist($startip, $endip)

Given a range of IP addresses, return a list of blocks that span that range.

For example, range2cidrlist('216.240.32.128', '216.240.36.127'), will return a list of Net::Netmask objects that corrospond to:

Code

my $beginip = "216.240.32.128"; 
my $endip = "216.240.36.127"; 
 
my @blocks = range2cidrlist($beginip, $endip);