Net :: CIDR :: Lookup

IPv4ネットワークまたはホストによって索引付けされたルックアップテーブルを実装するPerlクラス
今すぐダウンロード

Net :: CIDR :: Lookup ランキングとまとめ

広告

  • Rating:
  • ライセンス:
  • Perl Artistic License
  • 価格:
  • FREE
  • 出版社名:
  • Matthias Bethke
  • 出版社のWebサイト:
  • http://search.cpan.org/mbethke/

Net :: CIDR :: Lookup タグ


Net :: CIDR :: Lookup 説明

IPv4ネットワークまたはホストによって索引付けされたルックアップテーブルを実装するPerlクラス Net :: CIDR :: Lookupは、IPv4ネットワークまたはホストによって索引付けされたルックアップテーブルを実装するPerlクラスです。 *アドレスは、CIDR表記の文字列またはIPアドレス範囲*重なり合うか、または隣接するネットワークが等しい場合、アドレスが数値形式(別々のNetBITS引数を持つ整数)で受け入れられます。 *テーブルはバイナリツリーとして実装されているため、ルックアップと挿入o(log n)time.methodsは一般に成功した値とenerrの値を返します。後者の場合、$ NET :: CIDR :: Lookup :: ErrStrSynopsisでエラーメッセージが表示されます。 $ CIDR = NET :: CIDR :: Lookup-> New; $ CIDR-> ADD( "192.168.42.0/24"、1); #最初のネットワーク、値1 $ CIDR-> ADD_NUM(16772448,27,2)を追加します。 #10.0.1.32/27 => 2 $ CIDR-> ADD( "192.168.43.0/24"、1); #自動合体A / 23 $ CIDR-> ADD( "192.168.41.0/24"、2)。 #$ CIDR-> ADD( "192.168.42.128/25"、2)のように、#$ CIDR-> ADDのために分離しています。 #エラー:$ h = $ cidr-> dumpを異なる値と重ねます。 #ツリーをハッシュプリントに変換 "$ k => $ v n" while(($ k、$ v)=それぞれ$ h)。 #出力(注文はさまざまな場合):#192.168.42.0/23 => 1#10.0.1.32/27 => 2#192.168.41.0/24 => 2 $ CIDR-> WALK(サブ{My($ ADDR、$ビット) 、$ val)= @_;印刷結合( '。'、 'c *'、pack 'n'、$ addr)、 "/ $ bits => $ val n"})}); #出力(固定順):#10.0.1.32/27 => 2#192.168.41.0/24 => 2#192.168.42.0/23 => 1 $ CIDR-> CLEAR; #すべてのエントリを削除する$ CIDR-> ADD_RANGE( '1.2.3.11 - 1.2.4.234'、42); #あるいは範囲のアドレスを追加し、自動的にCIDRブロックに分割$ H = $ CIDR->ダンプ; "$ k => $ v n"の印刷(($ k、$ v)=それぞれ$ h); #出力(順序は異なる場合があります):#1.2.4.128/26 => 42#1.2.3.32/27 => 42#1.2.3.64/26 => 42#1.2.4.234/32 => 42#1.2.4.0/25 => 42#1.2.3.12/30 => 42#1.2.3.128/25 => 42#1.2.3.16/28 => 42#1.2.4.224/29 => 42#1.2.4.232/31 => 42#1.2 .3.11 / 32 => 42#1.2.4.192/27 => 42要件: ・Perl


Net :: CIDR :: Lookup 関連ソフトウェア