[PerlChina] Re: 请教高手如何合并邻近的ip段.

用ip的数字形式 +1 和下一个头判断是否相等就行吧。。

sub ip2num{
my $ip=$_[0]; 

if($ip =~ m/\./){

   @p=split(/\./, $ip);

   return $p[0]*256**3+$p[1]*256**2+$p[2]*256+$p[3];
   }
 }

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

121.17.130.52   121.17.130.55   河北省衡水市 景县西市场顺心网吧
121.17.130.56   121.17.130.71   河北省衡水市 网通
121.17.130.72   121.17.130.75   河北省衡水市 景县水场路奔腾网吧
121.17.130.76   121.17.130.91   河北省衡水市 网通
121.17.130.92   121.17.130.95   河北省衡水市 景县星际网吧
121.17.130.96   121.17.131.81   河北省衡水市 网通
121.17.131.82   121.17.131.82   河北省衡水市 长虹网吧

如上一组ip是从qqwry中聚得,发现是一组连续的ip,现想用perl来处理,发现是连续的ip就合并成一组

121.17.130.52 -12.17.130.95 这一组是连续的.

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

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