一段遍历IP段的代码，用到了大量的(un)pack

一段遍历IP段的代码，用到了大量的(un)pack
[quote]#!/usr/bin/perl -w
use strict;
my $a='210.76.63.134';
my $b='210.76.63.154';
$a=unpack('N',pack('CCCC',split/\./,$a));#将IP转换为长整型
$b=unpack('N',pack('CCCC',split/\./,$b));
for(my $i=$a;$i<=$b;$i++){
my $ip=join('.',unpack('CCCC',pack('N',$i)));#将长整型转换为IP
print "$ip\n";
}
[/quote]

--sub ip2long--{--.

sub ip2long
{
my ($i1, $i2, $i3, $i4) = split (/\./, $_[0]);
(($i1 << 24) + ($i2 << 16) + ($i3 << 8) + $i4);
}