$ip = "192.168.1.43";
$nm = "255.255.255.224";
print "\nip addr = $ip\nnetmask = $nm\n";
($ip1, $ip2, $ip3, $ip4) = split(/\./, $ip);
($nm1, $nm2, $nm3, $nm4) = split(/\./, $nm);
$sb1=$ip1 & $nm1; $sb2=$ip2 & $nm2; $sb3=$ip3 & $nm3; $sb4=$ip4 & $nm4;
print "subnet  = $sb1\.$sb2\.$sb3\.$sb4\n\n";

URL:
Обсуждается: http://www.opennet.me/tips/info/288.shtml

• Как по IP адресу хоста и маске подсети определить адрес подсети.,Zaur, 04:06 , 26-Май-03
• Как по IP адресу...,Надя, 22:17 , 24-Ноя-04
• Как по IP-адресу можно узнать какие-нибудь сведенья о владельце этого IP-адреса?,Андрей, 16:44 , 06-Апр-05
• Как по IP адресу хоста и маске подсети определить адрес подсети.,ptika, 01:18 , 27-Май-05
• о,ч69чРусланч69ч, 23:56 , 04-Окт-09
• Как по IP адресу хоста и маске подсети определить адрес подсети.,Тарас, 10:53 , 19-Апр-11

Незнаю как у всех но у меня этот пример заработал только после такой модификации:

$ip = "192.168.1.43";
$nm = "255.255.255.224";
print "\nip addr = $ip\nnetmask = $nm\n";
($ip1, $ip2, $ip3, $ip4) = map { int($_)} split(/\./, $ip);
($nm1, $nm2, $nm3, $nm4) = map { int($_)} split(/\./, $nm);
$sb1=$ip1 & $nm1; $sb2=$ip2 & $nm2; $sb3=$ip3 & $nm3; $sb4=$ip4 & $nm4;
print "subnet  = $sb1\.$sb2\.$sb3\.$sb4\n\n";

Как по IP-адресу можно узнать какие-нибудь сведенья о владельце этого IP-адреса?

Как по IP-адресу можно узнать какие-нибудь сведенья о владельце этого IP-адреса?

Net::Netmask
просто и со вкусом :)

Это куда в водить

Надо применить к ним побитовую операцию конъюнкции.