Perlコーディング初心者質問スレ Part 55

[0888 nobodyさん 2007/09/02(日) 00:21:59 ID:???]

my @quadip = split(/\./, $IPADDRESS);
my $ipdec = 0; # 10進に変換された IP
my $basedec = 256 * 256 * 256 * 256; # ベースとなる値

for(my $i = 0; $i < 4; $i++){
　　$basedec = $basedec / 256;
　　$ipdec += $basedec * $quadip[$i];
}

これで $ipdec に１０進数にされた IP アドレスが入るので、同じように公開されてる IP アドレスの範囲も１０進数に変換して
その範囲内に収まってるかどうかで確認できる。