Исходное сообщение
"Раздел полезных советов: Операции проверки IP на вхождение в сеть a.b.c.d/N или a.b.c.d/n.n.n.n" Отправлено auto_tips, 25-Мрт-03 10:46
$find_net = '123.123.45.4/30'; $some_ip  = '123.123.45.5'; my ($net_ip, $net_mask) = split(/\//, $s_find_ip); my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $net_ip); $net_ip_raw pack ('CCCC', $ip1, $ip2, $ip3, $ip4); $net_mask_raw = pack ('B32', (1 x $net_mask), (1 x (32 - $net_mask))); # $some_ip_raw  вычисляем по аналогии с $net_ip_raw if ($some_ip_raw & $net_mask) eq $net_ip_raw){   # $some_ip_raw входит в подсеть $find_net } При указании маски вида $find_net = '123.123.45.4/255.255.255.224' вместо pack можно преобразовать IP и маску в число по алгоритму: $net_ip_raw = ($ip1<<24) + ($ip2<<16) + ($ip3<<8) + $ip4; Тоже проделать с маской и проверяемым IP, вхождение в подсеть будет проверяться условием: if ($some_ip_raw & $net_mask) == $net_ip_raw){   # $some_ip_raw входит в подсеть $find_net } Другой вариант: use Socket; sub isinsubnet {     my ($subnethost, $subnetmask, $testhost) = @_;     $subnethost = inet_aton($subnethost);     $subnetmask = inet_aton($subnetmask);     $testhost = inet_aton($testhost);     return (($subnethost & $subnetmask) eq ($testhost & $subnetmask)); } URL: http://www.opennet.ru/prog/info/1328.shtml Обсуждается: http://www.opennet.ru/tips/info/206.shtml