- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3530 [639]
От : Misha Shiposh 2:5023/42.1 11 мая 04, 22:42
Кому : All 12 мая 04, 21:58
Тема : Проблем
-------------------------------------------------------------------------------
@e-mail:acorpnetklauga@hotbox.ru ICQ:167243831
¦ Привет _All_ !
L============----····· · · ·
Есть хешь массивов, ключами которого являются (в текстовом контексте) строки
типа 2:5023/42.1 и т.д.
Требуется всего лишь отсортировать их по возростанию. Делаю так:
for my $nt (sort {$a cmp $b} (keys %points)) { print "$nt\n" }
Сортируте так:
2:5023/41.4
2:5023/41.5
2:5023/42.111
2:5023/42.2
2:5023/42.22
2:5023/42.5
Hужно так:
2:5023/41.4
2:5023/41.5
2:5023/42.2
2:5023/42.5
2:5023/42.22
2:5023/42.111
Ясно что cmp ставлю не по своей воле, с пониманием того что циферки и должно
быть "<равно>"
Была идей через регесп обработать последние циферки, тока вот как, куда пихать
регесп, и есть ли в этом смысл?
PS Как сортировочку сделать?
BCNU !
-----------------------------------------------------------------------
... np: (Winamp is not active ;-)
--- Q3 - RulezZzZ Forever
* Origin: Сколько хлеба не жуй, а пить все pавно хочется. (2:5023/42.1)