- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3542 [639]
От : gleb 2:5020/400 14 мая 04, 09:33
Кому : Misha Shiposh 14 мая 04, 21:49
Тема : Re: Проблем
-------------------------------------------------------------------------------
From: gleb
Здравствуйте, Misha.
Вы писали 11 мая 2004 г., 23:42:36:
MS> Сортируте так:
MS> 2:5023/41.4
MS> 2:5023/41.5
MS> 2:5023/42.111
MS> 2:5023/42.2
MS> 2:5023/42.22
MS> 2:5023/42.5
MS> Hужно так:
MS> 2:5023/41.4
MS> 2:5023/41.5
MS> 2:5023/42.2
MS> 2:5023/42.5
MS> 2:5023/42.22
MS> 2:5023/42.111
Я решал подобную сортировку таким способом:
(на примере ip-адресов)
@orderadrss =
map { $_->[0] }
sort { $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] || $a->[3] <=> $b->[3]
|| $a->[4] <=> $b->[4] }
map { [$_, split(/\./, $_)] } @unorderadrss;
где, @unorderadrss - массив с несортированными адресами,
@orderadrss - результат сортировки
--
С уважением,
gleb mailto:gleb@company.utk.ru
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: Talk.Mail.Ru (2:5020/400)