2010-09-21 9 views
5

¿Alguien tiene un ejemplo en Perl de cómo puedo calcular la transmisión de IP desde una dirección IP y una máscara de red?¿Cómo puedo calcular la transmisión IP desde una dirección IP y una máscara de red en Perl?

+2

Downvoter: proporcione un motivo. Los nuevos usuarios nunca aprenderán si no les dices lo que están haciendo mal. Simplemente la revocación de un usuario de 1 repetición no hace nada más que desalentar a los usuarios nuevos de usar SO. – Aren

+1

No fui yo, pero esta es una pregunta que es muy fácil de obtener yendo a http://search.cpan.org e ingresando un término de búsqueda como "dirección IP" o "máscara de red". – Ether

+0

Estoy de acuerdo con usted thx por la ayuda, soy realmente un nuevo usuario y solo pregunto por ejemplo, nuevamente thx – shulus

Respuesta

7

Esto se puede hacer con los módulos de CPAN Net::IP y Net::Netmask:

my $ip = Net::IP->new('192.168.1.1'); 
my $block = Net::Netmask->new('192.168.1.1'); 

print "netmask: ", $ip->mask(), "\n"; 
print "broadcast: ", $block->broadcast(), "\n"; 
+0

Ether este es un ejemplo muy simple, perdón por mi pregunta – shulus

7

Por qué no utilizan los módulos de CPAN. Por ejemplo NetAddr::IP:

my $ip = NetAddr::IP->new('124.2.4.6', '255.255.255.0'); 
print $ip->broadcast(); 
+0

NetAddr :: IP ha sido mi destino para cualquier cosa relacionada con IP desde hace un tiempo; maneja todo – Oesor

Cuestiones relacionadas