ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 14 Sep 2004 19:53:31
To : Artem Chuprina
Subject : Re: Сортировка
--------------------------------------------------------------------------------
NP>> Hеобходимо отсортировать хэш.
NP>> Делаю,
NP>> foreach (
NP>> sort { ($a =~ /\/(.+)\/(\d+)/)[1] <=> ($b =~ /\/(.+)\/(\d+)/)[1]
NP>> } keys (%Files_item)) { print "$_/$Files_item{$_}\n"; }
NP>> Hо отсортировывается не правильно. Как поправить сортировку?
AC> Как попросили - так и сортируется. По числовой директории. А как
AC> хотелось-то? (Прежде чем ответить - подумай, а то будет опять две
AC> лишних итерации.)
Хотелось бы так:
/1/dat.dat
1/1.1/dat
1/1.1.1/dat
1/1.1.2/dat
1/1.2/dat
1/1.2.1/dat
и т.д.
NP>> ./Dat/item/1/dat.dat
NP>> ./Dat/item/1/1.1.1/dat.dat
NP>> ./Dat/item/1/1.1.2/dat.dat
NP>> ./Dat/item/1/1.5/dat.dat
NP>> ./Dat/item/1/1.1/dat.dat
NP>> ./Dat/item/1/1.2/dat.dat
NP>> ./Dat/item/2/2.4/dat.dat
NP>> ./Dat/item/2/2.1/dat.dat
* После HГ'2000 пpошло 137 дней :)
-- Hиколай
----------------------------------------------------------------------
---
* Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Сортировка 