ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     26 Mar 2002  17:34:56
 To : Stephen V Avdeyev
 Subject : Re: IP и маски
 -------------------------------------------------------------------------------- 
 

 Stephen V Avdeyev wrote:
 
 > Добрый день/вечер, Proext!
 > 
 > 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);
 
 В принципе решение жизнеспособно... Hо, 127.0.0.1, скажем,
 не будет равен 127.000.000.001. А должен бы. Да и отсутствие
 указанной маски для сети стоит расценивать скорее как
 принадлежность к умолчальной подсети (A, B или С, в зависимости
 от адреса сети).
 
 >         }
 >         my ($n_addr, $sfx) = split /\//, $a_net;
 >         $sfx = 32 unless defined $sfx;
 
 А откуда возьмется undefined-то, если соответствие regexp-у уже
 прошло?
 
 >         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);
 > }
 
 Андрей
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    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