How I can calculate the broadcast IP from an IP address and netmask in Perl?

Question

Does someone have example in Perl of how I can calculate the broadcast IP from an IP address and netmask?

Answer 1

This can be done with the CPAN modules Net::IP and 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

Why not use modules from CPAN. For example NetAddr::IP:

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