https://www.opennet.dev/openforum/vsluhforumID15/4415.html Имеется некий IP, пусть будет 8.8.8.8. Имеется текстовый файл с длинным списком подсетей с различными длинами префикса, к примеру, /12, /15, /24. Возможно ли написать какой-то хитрый grep, который бы проверял есть ли среди этих подсетей та, в которую входит нужный нам IP, допустим, упомянутый 8.8.8.8/32? Может на Perl-е что-то или ещё на чём? Если кто знает, то, просьба, привести пример такого скрипта.<br><br><br><br> https://www.opennet.dev/openforum/vsluhforumID15/4415.html#13 Mon, 30 Apr 2018 03:47:51 GMT &gt; Имеется некий IP, пусть будет 8.8.8.8. Имеется текстовый файл с длинным списком <br>&gt; подсетей с различными длинами префикса, к примеру, /12, /15, /24. Возможно <br>&gt; ли написать какой-то хитрый grep, который бы проверял есть ли среди <br>&gt; этих подсетей та, в которую входит нужный нам IP, допустим, упомянутый <br>&gt; 8.8.8.8/32? Может на Perl-е что-то или ещё на чём? Если кто <br>&gt; знает, то, просьба, привести пример такого скрипта.<br><br>да не вопрос! поздновато, конечно, но лучше поздно, чем никогда<br>может ещё кому-то сгодится<br>абсолютно бесплатно, без регистрации и смс<br>[code]<br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>use Net::CIDR;<br><br>my $ip_addr = $ARGV[0];<br>my $netlist = $ARGV[1];<br><br>## проверяем, что на входе?<br>if (!defined($ARGV[0]) &#124;&#124; !defined($ARGV[1])) {<br> print "enter\n\targ 1 - ip address\nand\n\targ 2 - path to the network list file\n";<br> exit;<br>}<br><br>## проверяем правильность входящего ip-адреса<br>if ($ip_addr !~ /^((\d&#124;[01]?\d\d&#124;2[0-4]\d&#124;25[0-5])\.){3}(\d&#124;[01]?\d\d&# https://www.opennet.dev/openforum/vsluhforumID15/4415.html#12 Sun, 29 Apr 2018 16:02:27 GMT &gt;[оверквотинг удален]<br>&gt; =&gt; $mask }; <br>&gt; В перле есть и именно создание мегарегулярного выражения <br>&gt; use Net::IP::Match::Regexp qw( create_iprange_regexp match_ip ); <br>&gt; $banned_regexp = create_iprange_regexp(@banned); <br>&gt; if (match_ip($address, $banned_regexp)) <br>&gt; { <br>&gt; syslog(LOG_WARNING, "$address is already banned!"); <br>&gt; return 1; <br>&gt; } <br>&gt; но он немного не очень чтобы прямо быстрый слишком <br><br>да можно ещё и Net::Subnet<br>автор утверждает, что он быстрый<br><br>типа так<br><br>use strict;<br>use warnings;<br>use Net::Subnet;<br><br>my $ip_addr = $ARGV[0];<br>my $ip_file = $ARGV[1];<br><br>open my $fh, "&lt;", $ip_file;<br>chomp (my @farr = &lt;$fh&gt;);<br>close $fh;<br><br>my $rfc = subnet_matcher @farr;<br><br>print $rfc-&gt;($ip_addr) ? 'yes' : 'no';<br><br>но возможно ТС нужно знать, а в какие сети/подсети попадает проверяемый адрес ??<br> https://www.opennet.dev/openforum/vsluhforumID15/4415.html#11 Tue, 24 Apr 2018 12:45:33 GMT &gt; В php я полный 0, вообще представления не имею что да как <br>&gt; там. Что-то делаю только в bash, немного знаю sed, awk, но <br>&gt; и тут не мегагуру - иначе не задавал бы вопросов. <br>&gt; У меня совершенно другого рода образование, работа - языки программирования я <br>&gt; не изучал нигде и по работе они мне не нужны. Делать <br>&gt; выводы про безголовость ничего не зная про меня - это 5 <br>&gt; баллов, спасибо.<br><br>Простите, но приведенный код это сплошные арифметические операции... Тут и знать нечего. Максимум, что вам там может быть непонятно, это explode(), pow() и ip2long(), гуглится в 2 минуты.<br> https://www.opennet.dev/openforum/vsluhforumID15/4415.html#10 Tue, 24 Apr 2018 11:07:47 GMT &gt; Не специально. Я взял старый кусок и немного дорисовал до его задач... <br>&gt; Ну да, пропустил несколько ";"... Я ж не думал, что он <br>&gt; настолько безголовый, что имея код, разложенный по полочкам и не сможет <br>&gt; разобраться.<br><br>В php я полный 0, вообще представления не имею что да как там. Что-то делаю только в bash, немного знаю sed, awk, но и тут не мегагуру - иначе не задавал бы вопросов. У меня совершенно другого рода образование, работа - языки программирования я не изучал нигде и по работе они мне не нужны. Делать выводы про безголовость ничего не зная про меня - это 5 баллов, спасибо.<br> https://www.opennet.dev/openforum/vsluhforumID15/4415.html#9 Mon, 23 Apr 2018 17:40:29 GMT &gt; Имеется некий IP, пусть будет 8.8.8.8. Имеется текстовый файл с длинным списком <br>&gt; подсетей с различными длинами префикса, к примеру, /12, /15, /24. Возможно <br><br>use Net::IPAddress;<br><br><br>foreach my $net (@nets)<br>{<br> if (Net::IPAddress::mask($net-&gt;{address}, $net-&gt;{mask}) eq Net::IPAddress::mask($address, $net-&gt;{mask}))<br> {<br> <br> return 1;<br> }<br> }<br><br>@nets у меня заполняется push @nets, { address =&gt; $address, mask =&gt; $mask };<br><br>В перле есть и именно создание мегарегулярного выражения <br>use Net::IP::Match::Regexp qw( create_iprange_regexp match_ip );<br><br>$banned_regexp = create_iprange_regexp(@banned);<br><br>if (match_ip($address, $banned_regexp))<br>{<br> syslog(LOG_WARNING, "$address is already banned!");<br> return 1;<br>}<br><br>но он немного не очень чтобы прямо быстрый слишком<br><br><br><br> https://www.opennet.dev/openforum/vsluhforumID15/4415.html#8 Mon, 23 Apr 2018 11:26:36 GMT &gt; Прошу пардона, я совсем не в теме как можно запускать php из <br>&gt; bash? WEB-сервера у меня нет, только консоль.<br><br>Точно так же, как и Perl. PHP в этом плане ничем не отличается.<br><br>&gt; И мне нужно проверять file.txt с длинным списком подсетей <br>&gt; - как его туда подставить? Пример строчки в bash можно?<br><br>Я вам дал общий алгоритм разбора подсети и поиска в ней искомого хоста... Адаптация на вас, за бесплатно я вашу работу для вас делать не буду.<br> https://www.opennet.dev/openforum/vsluhforumID15/4415.html#7 Mon, 23 Apr 2018 11:21:55 GMT &gt; Забудьте обо всем этом. в приведенном кусте кода есть несколько опечаток (намеренных? <br>&gt; :) что приведет к невозможности его выполнения. И это будет непреодолимым <br>&gt; препятствием для вас.<br>&gt; Плюс к тому же этот код- концепт который вам надо дописать по <br>&gt; месту...<br><br>Не специально. Я взял старый кусок и немного дорисовал до его задач... Ну да, пропустил несколько ";"... Я ж не думал, что он настолько безголовый, что имея код, разложенный по полочкам и не сможет разобраться.<br> https://www.opennet.dev/openforum/vsluhforumID15/4415.html#6 Mon, 23 Apr 2018 10:17:23 GMT &gt; Имеется некий IP, пусть будет 8.8.8.8. Имеется текстовый файл с длинным списком <br>&gt; подсетей с различными длинами префикса, к примеру, /12, /15, /24.<br><br>Есть CIDR grep (много вариантов). К примеру, https://github.com/mpangrazzi/cidr-grep<br> https://www.opennet.dev/openforum/vsluhforumID15/4415.html#5 Mon, 23 Apr 2018 09:08:29 GMT &gt; Имеется некий IP, пусть будет 8.8.8.8. Имеется текстовый файл с длинным списком <br>&gt; подсетей с различными длинами префикса, к примеру, /12, /15, /24. Возможно <br>&gt; ли написать какой-то хитрый grep, который бы проверял есть ли среди <br>&gt; этих подсетей та, в которую входит нужный нам IP, допустим, упомянутый <br>&gt; 8.8.8.8/32? Может на Perl-е что-то или ещё на чём? Если кто <br>&gt; знает, то, просьба, привести пример такого скрипта.<br><br>IP - суть 32 битное число, сеть - диапазон чисел.<br>проверяете попадание числа в диапазон.....<br>awk вам в помощь.<br>