%sites = {
site1 => [ '192.168.1.0/24', '10.10.10.0/24', '4.5.6.7/255.255.255.192'],
site2 => [ '1.2.3.4/255.255.255.240', '10.1.1.1/255.255.255.252']
...
};
####
%sites = (
site1 => {
ipinfo => [ '192.168.1.0/24', '10.10.10.0/24', '4.5.6.7/255.255.255.192'],
descr => 'North California',
isp => 'Verizon'
},
site2 => {
ipinfo => [ '1.2.3.4/255.255.255.240', '10.1.1.1/255.255.255.252']
descr => 'South California',
isp => 'Time Warner'
},
...
);
####
$sites{'site1'}{'ipinfo'} = Net::CIDR::Lite->new;
####
$cidr = Net::CIDR::Lite->new;
$sites{'site1'}{'ipinfo'} = $cidr->add_cidr('192.168.1.0/24');