サブネット上のIPアドレスを確認する

インターネットにはこの問題に対する多くの解決策がありますが、私もそれを探しましたが、パフォーマンスが悪いために解決策が好きではありませんでした。 Perlには、この問題を非常に効果的に解決するパッケージNet :: Patriciaがあります。この方法はPatricia Treeに基づいています。



このパッケージはCPANからインストールできます。



perl -MCPAN -eシェル

Netのインストール:: Patricia



インストール後、このパッケージを次のように使用できます。



#!/usr/bin/perl -w

use Net::Patricia;

# IP tools

my $pt = new Net::Patricia;

$pt->add_string('212.44.12.0/24');

if(defined($pt->match_string('212.44.12.3'))){

print "IN\n";

}else{

print "OUT\n";

}