|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 10 Dec 2006 13:34:03
To : All
Subject : Отсортировать не могу
--------------------------------------------------------------------------------
Создается такого вида массив
my @fil =
(".1",".2","1.1","2.1","1.1.1","1.2","2.1.1","2.2","1.1.2","1.2.2","1.1.1.1","1
.2.1");
my @array = sort {
($a =~ /(.*)\.(\d)$/)[1] <=> ($b =~ /(.*)\.(\d)$/)[1]
} @fil;
foreach (@array) {
print qq~$_\n~;
}
Hадо его отсортировать
У меня получается
.1
1.1
2.1
1.1.1
2.1.1
1.1.1.1
1.2.1
.2
1.2
2.2
1.1.2
1.2.2
----------
А надо, что было так:
.1
1.1
1.1.1
1.1.1.1
2.1.1
2.1
1.2.1
.2
1.2
1.1.2
2.2
1.2.2
* Шутливая мудрость гораздо лучше мудреной шутки.
::Hиколай
----------------------------------------------------------------------
---
* Origin: В конце концов среди концов найдешь конец ты наконец. (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
