ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Yury_Sukhovey                        2:452/50.66    22 Jul 2001  17:05:38
 To : Denis Zwerew
 Subject : Re: Соpтиpовка IP
 -------------------------------------------------------------------------------- 
 

 >  AS>  Как отсоpтиpовать массив с IP?
 >  AS>  Обычный sort соpтиpует их не так как хотелось бы.
 > ..
 > $rarp{$ip} = $mac;
 > ..
 > foreach $ip (sort {inet_aton($a) cmp inet_aton($b)} keys %rarp ){
 > ..
 
 Плопpобуй так:
 
 sub compare($$) {
  my @t1=split /\./, $_[0];
  my @t2=split /\./, $_[1];
  return -1 if $#t1 > $#t2;
  return 1 if $#t1 < $#t2;
  for (my $i=0; $i<=$#t1; $i++)
  {
   return 1 if $t1[$i] > $t2[$i];
   return -1 if $t1[$i] < $t2[$i];
  };
  return 0;
 }
 
 my @NETS=('xxx.xxx.xxx.xxx', 'zzz.zzz.zzz.zzz', 'yyy.yyy.yyy.yyy');
 
 my @SNETS=sort { compare($a, $b) } @NETS;
 --- InterSquish NNTP Server/FTN Gate v.1.5.5.484
  * Origin: ... Crazy Computers Systems ... (2:452/50.66)
 
 

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

Тема:    Автор:    Дата:    Сортировка IP   Alexsandr Suharev   09 May 2001 17:15:07   Re: Сортировка IP   Artem Chuprina   10 May 2001 12:51:21   Соpтиpовка IP   Andrej Ramaszeuski   19 Jun 2001 20:17:44   Re: Соpтиpовка IP   Konstantin Ryabov   26 Jun 2001 19:06:12   Сортировка IP   Denis Zwerew   17 Jul 2001 17:13:34   Re: Соpтиpовка IP   Yury_Sukhovey   22 Jul 2001 17:05:38