|
|
|
Supreme Being
участник
Last Login: 27.08.2005 13:07
Сообщ.: 105,
Visits: 1 156
|
|
my ($oaddr,$mask)=split/\//,$_;
my $poaddr=unpack("L",pack("C4",(split (/\./, $oaddr))));
my $puaddr=unpack("L",pack("C4",(split (/\./, $uaddr))));
my $pmask=unpack("L",pack("B32",(1 x $mask)));
|
|
|
|