如何在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();