The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Операции проверки IP на вхождение в сеть a.b.c.d/N или a.b.c.d/n.n.n.n
$find_net = '123.123.45.4/30';
$some_ip  = '123.123.45.5';
my ($net_ip, $net_mask) = split(/\//, $find_net);
my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $find_net);
my $net_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);
my $net_mask_raw = pack ('B32', (1 x $net_mask), (1 x (32 - $net_mask)));
# $some_ip_raw  вычисляем по аналогии с $net_ip_raw
($ip1, $ip2, $ip3, $ip4) = split(/\./, $some_ip);
my $some_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);

if (($some_ip_raw & $net_mask_raw) 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_raw) == $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));
}
 
12.04.2002 , Источник: https://www.opennet.ru/prog/info/132...
Ключи: subnet, ip, socket, x, pack, raw, netmask / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Работа с сетью и IP адресами на Perl

Обсуждение [ RSS ]
  • 1.1, Zergling (?), 10:46, 25/03/2003 [ответить]  
  • +/
    В примере полно ошибок!
    Насколько я понимаю это проверка на вшивость ? :))))
     
     
  • 2.2, Maxim Chirkov (?), 13:55, 25/03/2003 [^] [^^] [^^^] [ответить]  
  • +/
    >В примере полно ошибок!
    >Насколько я понимаю это проверка на вшивость ? :))))

    А пальцем на ошибки показать можно ? :-)

    PS. Выдиралось из разных в отдельности рабочих кусков кода и дописывалось в online, поэтому вполне могли появиться ошибки.

     
     
  • 3.3, Zergling (?), 15:03, 25/03/2003 [^] [^^] [^^^] [ответить]  
  • +/
    >>В примере полно ошибок!
    >>Насколько я понимаю это проверка на вшивость ? :))))
    >
    >А пальцем на ошибки показать можно ? :-)
    >
    >PS. Выдиралось из разных в отдельности рабочих кусков кода и дописывалось в
    >online, поэтому вполне могли появиться ошибки.
    1)в первом там грамматические ошибки
    плюс еще то что берем из пустой переменной :)
    см в split
    2)это во втором примере
    полный листинг
    $find_net = '123.123.45.0/255.255.255.0';
    $some_ip = '123.123.45.254';
    my ($net_ip, $net_mask) = split(/\//, $find_net);
    #При указании маски вида $find_net = '123.123.45.4/255.255.255.224'
    #вместо pack можно преобразовать IP и маску в число по алгоритму:
    my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $net_ip);
    $net_ip_raw = ($ip1<<24) + ($ip2<<16) + ($ip3<<8) + $ip4;
    my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $net_mask);
    $net_mask_raw = ($ip1<<24) + ($ip2<<16) + ($ip3<<8) + $ip4;
    my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $some_ip);
    $some_ip_raw = ($ip1<<24) + ($ip2<<16) + ($ip3<<8) + $ip4;

    if (($some_ip_raw & $net_mask_raw) == ($net_ip_raw & $net_mask_raw)){
      # $some_ip_raw входит в подсеть $find_net
    }

    насколько я понимаю так будет правильнее
    а так статья в целом классная :)

     

  • 1.4, Denis Chelukanov (?), 01:44, 19/02/2004 [ответить]  
  • +/
    В примере пара ошибочек из-за чего он и не работает. Вот исправленный :

    $find_net = '123.123.45.4/30';
    $some_ip  = '123.123.45.5';
    my ($net_ip, $net_mask) = split(/\//, $find_net);
    my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $net_ip);
    my $net_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);
    my $net_mask_raw = pack ('B32', (1 x $net_mask), (1 x (32 - $net_mask)));

    my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $some_ip);
    my $some_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);

    # $some_ip_raw  вычисляем по аналогии с $net_ip_raw
    if (($some_ip_raw & $net_mask_raw) eq $net_ip_raw){
      print "$some_ip входит в подсеть $find_net";
    }

     
     
  • 2.5, Skif (ok), 20:02, 01/11/2005 [^] [^^] [^^^] [ответить]  
  • +/
    тут они тоже присутсвуют
    my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $some_ip);
    my $some_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);

    лучше сменить на

    my ($ip_1, $ip_2, $ip_3, $ip_4) = split(/\./, $some_ip);
    my $some_ip_raw = pack ('CCCC', $ip_1, $ip_2, $ip_3, $ip_4);

    или убрать my перед ($ip1, $ip2, $ip3, $ip4)

     

  • 1.6, nordicdyno (?), 12:12, 23/01/2009 [ответить]  
  • +/
    Я могу ошибаться (т.к. не использовал), но разве Net::Patricia не то же самое умеет делать?
     

     Добавить комментарий
    Имя:
    E-Mail:
    Заголовок:
    Текст:




    Партнёры:
    PostgresPro
    Inferno Solutions
    Hosting by Hoster.ru
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2024 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру