Jak mogę obliczyć transmisję IP z adresu IP i maski sieci w Perlu?

Question

Czy ktoś ma przykład w Perlu, w jaki sposób mogę obliczyć transmisję IP z adresu IP i maski sieci?

Answer 1

Można to zrobić z modułów CPAN Net::IP i 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"; 

Answer 2

Dlaczego nie używać modułów z CPAN. Na przykład: NetAddr::IP:

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