OpenForum RSS: Раздел полезных советов: Как по IP адресу хоста и маске подсети определить адрес подсети. https://opennet.dev/openforum/vsluhforumID3/2067.html $ip = "192.168.1.43";<br>$nm = "255.255.255.224";<br>print "\nip addr = $ip\nnetmask = $nm\n";<br>($ip1, $ip2, $ip3, $ip4) = split(/\./, $ip);<br>($nm1, $nm2, $nm3, $nm4) = split(/\./, $nm);<br>$sb1=$ip1 & $nm1; $sb2=$ip2 & $nm2; $sb3=$ip3 & $nm3; $sb4=$ip4 & $nm4;<br>print "subnet = $sb1\.$sb2\.$sb3\.$sb4\n\n";<br><br>URL: <br>Обсуждается: http://www.opennet.ru/tips/info/288.shtml<br><br> Как по IP адресу хоста и маске подсети определить адрес подсети. (Тарас) https://opennet.dev/openforum/vsluhforumID3/2067.html#7 Tue, 19 Apr 2011 06:53:34 GMT Надо применить к ним побитовую операцию конъюнкции.<br> о (ч69чРусланч69ч) https://opennet.dev/openforum/vsluhforumID3/2067.html#6 Sun, 04 Oct 2009 19:56:00 GMT Это куда в водить<br> Как по IP адресу хоста и маске подсети определить адрес подсети. (ptika) https://opennet.dev/openforum/vsluhforumID3/2067.html#4 Thu, 26 May 2005 21:18:39 GMT Net::Netmask<br>просто и со вкусом :) Как по IP-адресу можно узнать какие-нибудь сведенья о владельце этого IP-адреса? (Андрей) https://opennet.dev/openforum/vsluhforumID3/2067.html#3 Wed, 06 Apr 2005 12:44:35 GMT Как по IP-адресу можно узнать какие-нибудь сведенья о владельце этого IP-адреса?<br> <br><br> Как по IP адресу... (Надя) https://opennet.dev/openforum/vsluhforumID3/2067.html#2 Wed, 24 Nov 2004 19:17:56 GMT Как по IP-адресу можно узнать какие-нибудь сведенья о владельце этого IP-адреса? Как по IP адресу хоста и маске подсети определить адрес подсети. (Zaur) https://opennet.dev/openforum/vsluhforumID3/2067.html#1 Mon, 26 May 2003 00:06:27 GMT Незнаю как у всех но у меня этот пример заработал только после такой модификации:<br><br>$ip = "192.168.1.43";<br>$nm = "255.255.255.224";<br>print "\nip addr = $ip\nnetmask = $nm\n";<br>($ip1, $ip2, $ip3, $ip4) = map { int($_)} split(/\./, $ip);<br>($nm1, $nm2, $nm3, $nm4) = map { int($_)} split(/\./, $nm);<br>$sb1=$ip1 & $nm1; $sb2=$ip2 & $nm2; $sb3=$ip3 & $nm3; $sb4=$ip4 & $nm4;<br>print "subnet = $sb1\.$sb2\.$sb3\.$sb4\n\n";<br><br>