NET :: cidr :: lookup Una classe Perl che implementa una tabella di ricerca indicizzata da reti o host IPv4
Scarica ora

NET :: cidr :: lookup Classifica e riepilogo

NET :: cidr :: lookup Tag

ospite reti IPv4. tabella di ricerca reti IPv4

NET :: cidr :: lookup Descrizione

Una classe Perl che implementa una tabella di ricerca indicizzata da reti o host IPv4 NET :: CIDR :: Lookup è una classe Perl che implementa una tabella di ricerca indicizzata da reti o host IPv4. * Gli indirizzi sono accettati in forma numerica (numero intero con argomento NetBITS separato), poiché le stringhe nella notazione CIDR o come intervalli di indirizzi IP * Sovrapposizione o reti adiacenti vengono automaticamente coalizzate se i loro valori associati sono uguali. * La tabella è implementata come albero binario in modo da cercare e inserire l'inserimento O (log n) ora. Metodi in genere restituiscono un vero valore sul successo e un nonf. In quest'ultimo caso, un messaggio di errore sarà disponibile in $ net :: cidr :: lookup :: errstrstrstrynopsis use net :: cidr :: lookup; $ cidr = net :: cidr :: lookup-> nuovo; $ cidr-> Aggiungi ("192.168.42.0/24", 1); # Aggiungi prima rete, valore 1 $ cidr-> add_num (167772448,27,2); # 10.1.1.32/27 => 2 $ cidr-> Aggiungi ("192.168.43.0/24", 1); # Coalescente automatico in A / 23 $ cidr-> Aggiungi ("192.168.41.0/24", 2); # Rimane separato a causa del valore diverso $ cidr-> aggiungi ("192.168.42.128/25", 2); # Errore: si sovrappone con valore diverso $ h = $ cidr-> dump; # Convertire albero in una stampa hash "$ k => $ v \ n" while (($ k, $ v) = ogni% $ h); # Output (ordine può variare): # 192.168.42.0/23 => 1 # 10.0.1.32/27 => 2 # 192.168.41.0/24 => 2 $ cidr-> walk (sub {my ($ addr, $ bit , $ VAL) = @_; Stampa join ('.', disimballare 'c *', pack 'n', $ addr), "/ $ bit => $ val \ n"}); # Output (ordine fisso): # 10.0.1.32/27 => 2 # 192.168.41.0/24 => 2 # 192.168.42.0/23 => 1 $ cidr-> chiaro; # Rimuovi tutte le voci $ cidr-> add_range ('1.2.3.11 - 1.2.4.234', 42); # Aggiungi una gamma di indirizzi, suddivisa automaticamente in blocchi CIDR $ h = $ cidr-> dump; Stampa "$ k => $ v \ n" while (($ k, $ v) = ogni% $ h); # Output (ordine può variare): # 1.2.4.128/26 => 42 # 1.2.3.32/27 => 42 # 1.2.3.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 Requisiti: · Perl.

NET :: cidr :: lookup Software correlato