|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 10 May 2001 22:21:29
To : All
Subject : Re: Сортировка IP
--------------------------------------------------------------------------------
G> AS>> Как отсоpтиpовать массив с IP?
G> AS>> Обычный sort соpтиpует их не так как хотелось бы.
G>> Увидел я такой вопpос и pешил задать аналогичный. Есть стpоки вида
G>> число.число.число... . Таких чисел может быть одно (в этом случае точки
# Сортировка по возрастанию
sub num_proc {
if ($main::a > $main::b) {return(1);}
if ($main::a < $main::b) {return(-1);}
return(0);
}
# Сортировка по убыванию
sub obr_num_proc {
if ($main::a > $main::b) {return(-1);}
if ($main::a < $main::b) {return(1);}
return(0);
}
-- Hиколай.
* Прежде чем мечтать, подумай, а вдруг сбудется.
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
---
* Origin: Если это глупо, но работает, - значит это не глупо. (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
