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";