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