[PerlChina] Re: 请高手指教perl该如何转换ip为掩码格式?

% perl -e "use Net::CIDR::Set; print $ipset=Net::CIDR::Set->new(q(210.22.93.0-210.22.93.255))->iterate_ranges->()"

210.22.93.0/24

2009/7/12 imxae <imx365ster@gmail.com>

有个如下字串:
210.22.93.0     210.22.93.255
想转换为:
210.22.93.0/16

这个该如何计算并转换?请高手指教

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---