Исходное сообщение
"Поиск, проверка наличия подсети в текстовом файле по IP" Отправлено Филимон Вдумчивый, 23-Апр-18 20:40
> Имеется некий IP, пусть будет 8.8.8.8. Имеется текстовый файл с длинным списком > подсетей с различными длинами префикса, к примеру, /12, /15, /24. Возможно use Net::IPAddress; foreach my $net (@nets) {         if (Net::IPAddress::mask($net->{address}, $net->{mask}) eq Net::IPAddress::mask($address, $net->{mask}))         {                          return 1;         }     } @nets у меня заполняется  push @nets, { address => $address, mask => $mask }; В перле есть и именно создание мегарегулярного выражения use Net::IP::Match::Regexp qw( create_iprange_regexp match_ip ); $banned_regexp = create_iprange_regexp(@banned); if (match_ip($address, $banned_regexp)) {      syslog(LOG_WARNING, "$address is already banned!");       return 1; } но он немного не очень чтобы прямо быстрый слишком

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> Имеется некий IP, пусть будет 8.8.8.8. Имеется текстовый файл с длинным списком >> подсетей с различными длинами префикса, к примеру, /12, /15, /24. Возможно > use Net::IPAddress; > foreach my $net (@nets) > { > if (Net::IPAddress::mask($net->{address}, $net->{mask}) eq > Net::IPAddress::mask($address, $net->{mask})) > { > > return 1; > } > } > @nets у меня заполняется push @nets, { address => $address, mask > => $mask }; > В перле есть и именно создание мегарегулярного выражения > use Net::IP::Match::Regexp qw( create_iprange_regexp match_ip ); > $banned_regexp = create_iprange_regexp(@banned); > if (match_ip($address, $banned_regexp)) > { > syslog(LOG_WARNING, "$address is already banned!"); > return 1; > } > но он немного не очень чтобы прямо быстрый слишком
	Введите код, изображенный на картинке: