FastNetMon

вторник, 9 апреля 2013 г.

Быстрая проверка IP на принадлежность к сети на Perl

Часто возникает задача - проверить IP на принадлежность определенным диапазонам IP адресов, это довольно легко (особенно на Debian!). 

Тут нам поможет чудо модуль:
apt-get install -y libnet-cidr-lite-perl
Вот простенький пример, показывающий его использование:
#!/usr/bin/perl
use strict;
use warnings;
use Net::CIDR::Lite;
my @subnets = ('10.0.0.1/24', '192.168.1.1/24');

my $cidr = Net::CIDR::Lite->new( @subnets  );
print "159:" . $cidr->find('159.21.22.33');
print "10:" . $cidr->find('10.0.0.4'); 
Аналогичный код на Python: http://www.stableit.ru/2011/06/ip-python_16.html 

Комментариев нет :

Отправить комментарий

Примечание. Отправлять комментарии могут только участники этого блога.