Tôi có thể tính IP phát sóng từ địa chỉ IP và mặt nạ mạng trong Perl như thế nào?

Question

Có ai có ví dụ về Perl về cách tôi có thể tính IP phát sóng từ địa chỉ IP và mặt nạ mạng không?

Answer 1

Điều này có thể được thực hiện với các module CPAN Net::IP và 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

Tại sao không sử dụng các module từ CPAN. Ví dụ: NetAddr::IP:

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