ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Stephen V Avdeyev                    2:5090/44      25 Mar 2002  11:04:25
 To : Proext
 Subject : IP и маски
 -------------------------------------------------------------------------------- 
 

 
 Tuesday March 19 2002 12:10, PROext wrote to All:
 
 P> Есть адрес в формате address/masklen, например:
 P> 195.230.128.0/19
 
 P> Как наиболее быстро определить, попадает ли мой адрес (например,
 P> 195.230.131.18) в эту область?
 sub isinnetwork () {
         my ($an_ip, $a_net) = @_;
         if ($a_net !~ /\//) {
             return ($an_ip eq $a_net);
         }
         my ($n_addr, $sfx) = split /\//, $a_net;
         $sfx = 32 unless defined $sfx;
         my $imask = 0xFFFFFFFF ^ ((1 << (32 - $sfx)) -1);
         my $p_ip  = unpack('N',pack('C4', split /\./,$an_ip));
         my $p_net = unpack('N',pack('C4', split /\./,$n_addr));
         return ($p_ip & $imask) == ($p_net & $imask);
 }
 За сим откланиваюсь, Stephen                               [Argus team]
 
 ... http://www.ktk.ru/ - "Крастелеком" /телекоммуникационные технологии
 --- GoldED/W32 3.00.Beta4+ (http://fido.ktk.ru - Красноярское ФИДО)
  * Origin: AFRICA Online (2:5090/44)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    IP и маски   PROext   19 Mar 2002 13:10:53   IP и маски   Stephen V Avdeyev   25 Mar 2002 11:04:25   Re: IP и маски   Vladimir Podgorny   26 Mar 2002 17:00:00   Re: IP и маски   Andrey Sapozhnikov   26 Mar 2002 17:34:56   IP и маски   Stephen V Avdeyev   27 Mar 2002 19:35:59   Re: IP и маски   Artem Chuprina   27 Mar 2002 20:18:37