anyone has netrange -> cidr conversion script to share?

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.

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";

a message of 12 lines which said:

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).

netmask (available as a Debian package or a FreeBSD port)

~ % netmask -c 10.0.0.0:10.0.2.255
       10.0.0.0/23
       10.0.2.0/24

excellent Perl script called 'aggis' that used to be available from
ftp.merit.edu ... I can't remember where I got it last. Since it's brief, I'm
including it here for the sake of the archives.

...

(well, I was going to, and saw that it was 557 lines, so I'll just post an
url: http://www.darkuncle.net/aggis )