Net::CIDR - Manipulate IPv4/IPv6 netblocks in CIDR notation
use Net::CIDR;
use Net::CIDR ':all';
print join("\n",
Net::CIDR::range2cidr("192.68.0.0-192.68.255.255",
"10.0.0.0-10.3.255.255"))
. "\n";
#
# Output from above:
#
# 192.68.0.0/16
# 10.0.0.0/14---Mike
At 11:12 PM 6/11/2003 -0700, [EMAIL PROTECTED] wrote:
Does anyone here has a script (or perl procedure) for converting range of ips (i.e. 10.0.0.0 - 10.0.2.255) into cidr (i.e. result would be 10.0.0.0/23,10.0.2.0/24 from the example before). If not I'll do it, I'm just hoping somebody is already done something this for another project...
Reply off the list.
-- William Leibzon Elan Communications Inc. [EMAIL PROTECTED]
-------------------------------------------------------------------- Mike Tancsa, tel +1 519 651 3400 Sentex Communications, [EMAIL PROTECTED] Providing Internet since 1994 www.sentex.net Cambridge, Ontario Canada www.sentex.net/mike
