Net :: CIDR.

Manipulate Netblocks IPv4 / IPv6 na notação do CIDR
Baixe Agora

Net :: CIDR. Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Sam Varshavchik
  • Site do editor:
  • http://www.courier-mta.org/maildrop/

Net :: CIDR. Tag


Net :: CIDR. Descrição

Manipular netblocks IPv4 / IPv6 na notação do CIDR Net :: CIDR é um módulo Perl que contém funções que manipulam listas de netblocks IP expressas na notação do CIDR. As funções NET :: CIDR lidam com os endereços IPv4 e IPv6. @ Cidr_list = net :: cidr :: range2cidr (@range_list (@range_list); cada elemento no @range_list é uma string "acabamento inicial", onde "Iniciar" é o primeiro Endereço IP e "Finish" é o último endereço IP. Range2Cidr () converte cada intervalo em um Netblock CIDR equivalente. Ele retorna uma lista de netblocks, exceto no caso em que é dado apenas um parâmetro e é chamado em Contexto Scalar.Synopsis Use NET :: CIDR; Use Net :: CIDR ': Tudo'; Print Junte ("\ n", net :: cidr :: range2cidr ("192.68.0.0-192.68.255.255", "10.0.0.0-10.3.255.255"). "\ n"; # # Saída de cima: # # 192.68.0.0/16 # 10.0.0.0.0/14 Print Junte ("\ n", net :: cidr :: range2cidr ("Dead: Carne :: - Dead: Beeff: FFFF: FFFF: FFFF: FFFF: FFFF ")). "\ n"; # # Saída de cima: # # Dead: Beef :: / 32 Print Junte ("\ n", Net :: CIDR :: range2cidr ("192.68.1.255"). "\ n"; # # Saída de cima: # # 192.68.1.0/24 # 192.68.2.0/24 Print Junte ("\ n", net :: cidr :: cidr2range ("192.68.0.0/16"). "\ n"; # # Saída de cima: # # 192.68.0.0-192.68.255.255 Imprimir Junta ("\ n", Net :: CIDR :: CIDR2Range ("Dead :: Beef :: / 46"). "\ n"; # # Saída de cima: # # Dead: Beef :: - Dead: Carne: 3: FFFF: FFFF: FFFF: FFFF: FFFF @list = ("192.68.0.0/24"); @ List = Net :: CIDR :: cidradd ("192.68.1.0-192.68.1.255", @list); Print Junte ("\ n", @list). "\ n"; # # Saída de cima: # # 192.68.0.0/23 Print Junte ("\ n", net :: cidr :: cidr2octets ("192.68.0.0/22")). "\ n"; # # Saída de cima: # # 192.68.0 # 192.68.0 # 192.68.1 # 192.68.1 # 192.68.1 # 192.68.2 # 192.68.2 # 192.68.3 print se juntar ("\ n", net :: cidr :: cidr2octets ("Dead :: Beef :: / 46") ). "\ n"; # # Saída de cima: # # Dead: Beef: 0000 # Dead: Beef: 0001 # Dead: Carne: 0002 # Dead: Carne: 0003 @list = ("192.68.0.0/24"); Imprimir net :: CIDR :: cidrlookup ("192.68.0.12", @list); # # Saída de cima: # # 1 @list = net :: cidr :: addr2cidr ("192.68.0.31"); Print Junte ("\ n", @list); # # Saída de cima: # # 192.68.0.31/32 # 192.68.0.30/31 # 192.68.0.28/30 # 192.68.0.24/29 # 192.68.0.16/28 # 192.68.0.0/27 # 192.68.0.0/26 # 192.68.0.0/25 # 192.68.0.0/24 # 192.68.0.0/23 # imprimir net :: cidr :: addrandmask2cidr ("195.149.50.61", "255.255.255.248"). "\ N"; # # Saída de cima: # # 195.149.50.56/29 Requisitos: · Perl.


Net :: CIDR. Software Relacionado

Sobre nós