ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 11 Sep 2004 22:43:17
To : All
Subject : Сортировка
--------------------------------------------------------------------------------
Hеобходимо отсортировать хэш.
Делаю,
foreach (
sort { ($a =~ /\/(.+)\/(\d+)/)[1] <=> ($b =~ /\/(.+)\/(\d+)/)[1] }
keys (%Files_item)) {
print "$_/$Files_item{$_}\n";
}
Hо отсортировывается не правильно. Как поправить сортировку?
./Dat/item/1/dat.dat
./Dat/item/1/1.1.1/dat.dat
./Dat/item/1/1.1.2/dat.dat
./Dat/item/1/1.5/dat.dat
./Dat/item/1/1.1/dat.dat
./Dat/item/1/1.2/dat.dat
./Dat/item/2/2.4/dat.dat
./Dat/item/2/2.1/dat.dat
./Dat/item/2/2.3/dat.dat
./Dat/item/2/2.2/dat.dat
./Dat/item/2/dat.dat
./Dat/item/2/2.5/dat.dat
./Dat/item/3/3.7/dat.dat
./Dat/item/3/3.1/dat.dat
./Dat/item/3/dat.dat
./Dat/item/3/3.5/dat.dat
./Dat/item/3/3.6/dat.dat
./Dat/item/3/3.3/dat.dat
./Dat/item/4/dat.dat
./Dat/item/5/5.2/dat.dat
./Dat/item/5/dat.dat
./Dat/item/7/dat.dat
./Dat/item/8/dat.dat
./Dat/item/9/dat.dat
./Dat/item/10/dat.dat
./Dat/item/11/dat.dat
./Dat/item/12/dat.dat
./Dat/item/13/dat.dat
./Dat/item/14/dat.dat
./Dat/item/14/14.1/dat.dat
./Dat/item/16/dat.dat
./Dat/item/17/dat.dat
./Dat/item/18/dat.dat
./Dat/item/19/dat.dat
./Dat/item/19/19.1/dat.dat
./Dat/item/19/19.4/dat.dat
./Dat/item/19/19.3/dat.dat
./Dat/item/19/19.2/dat.dat
./Dat/item/21/dat.dat
./Dat/item/22/dat.dat
./Dat/item/24/24.2/dat.dat
./Dat/item/24/dat.dat
./Dat/item/24/24.1/dat.dat
./Dat/item/25/dat.dat
./Dat/item/26/dat.dat
* По полу тапки грохотали. (От Фоменко)
-- Hиколай
----------------------------------------------------------------------
---
* Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
