NET :: CIDR :: Búsqueda Una clase Perl que implementa una tabla de búsqueda indexada por las redes IPv4 o los hosts
Descargar ahora

NET :: CIDR :: Búsqueda Clasificación y resumen

NET :: CIDR :: Búsqueda Etiquetas

Hospedadores redes IPv4 tabla de búsqueda Redes IPv4

NET :: CIDR :: Búsqueda Descripción

Una clase Perl que implementa una tabla de búsqueda indexada por las redes IPv4 o los hosts Net :: Cidr :: Lookup es una clase Perl que implementa una tabla de búsqueda indexada por las redes IPv4 o los hosts. * Las direcciones se aceptan en forma numérica (entero con argumento de netbits separado), como cadenas en la notación de CIDR o como rangos de direcciones IP * Las redes superpuestas o adyacentes se unen automáticamente si sus valores asociados son iguales. * La tabla se implementa como un árbol binario, por lo que la búsqueda y la inserción toman o (registro n) tiempo. Los métodos generalmente devuelven un valor verdadero en el éxito y el UNDEF en el error. En este último caso, se disponga de un mensaje de error en $ NET :: Cidr :: Búsqueda :: Enstrssynopsis Use Net :: Cidr :: Búsqueda; $ cidr = net :: Cidr :: Buscando-> Nuevo; $ cidr-> Agregar ("192.168.42.0/24", 1); # Añadir primera red, valor 1 $ cidr-> add_num (167772448,27,2); # 10.0.1.32/27 => 2 $ Cidr-> Agregar ("192.168.43.0/24", 1); # Coalescal automático a A / 23 $ Cidr-> Agregar ("192.168.41.0/24", 2); # Permanece separado debido a diferentes valor $ cidr-> agregar ("192.168.42.128/25", 2); # ERROR: Se superpone con un valor diferente $ H = $ CIDR-> DUMP; # Convierte el árbol a una impresión de hash "$ k => $ v \ n" mientras (($ K, $ V) = cada% $ H); # Salida (orden puede variar): # 192.168.42.0/23 => 1 # 10.0.1.32/27 => 2 # 192.168.41.0/24 => 2 $ cidr-> caminar (Sub {My ($ Addr, $ bits , $ val) = @_; Únase a la impresión ('.', desempaquete 'c *', paquete 'n', $ addr), "/ $ bits => $ val \ n"}); # Salida (orden fijo): # 10.0.1.32/27 => 2 # 192.168.41.0/24 => 2 # 192.168.42.0/23 => 1 $ Cidr-> Clear; # Eliminar todas las entradas $ cidr-> Add_Range ('1.2.3.11 - 1.2.4.234', 42); # Agregar una gama de direcciones, dividida automáticamente en bloques de CIDR $ H = $ CIDR-> DUMP; Imprimir "$ k => $ v \ n" while (($ k, $ v) = cada% $ h); # Salida (orden puede variar): # 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 Requisitos: · Perl

NET :: CIDR :: Búsqueda Software relacionado