Как я могу рассчитать широковещательный IP-адрес из IP-адреса и сетевой маски в Perl?

Question

Есть ли у кого-нибудь в Perl пример того, как я могу вычислить широковещательный IP-адрес по IP-адресу и маске сети?

Answer 1

Почему бы не использовать модули из CPAN.Например NetAddr::IP:

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

Answer 2

Это можно сделать с помощью модулей CPAN Net :: IP и 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";