如何从Perl中的IP地址和网络掩码计算广播IP？

Question

有人在Perl中有如何从IP地址和网络掩码计算广播IP的例子吗？

Answer 1

可以使用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";

Answer 2

为什么不使用CPAN中的模块。例如NetAddr::IP：

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