- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3535 [639]
От : Bulat Ziganshin 2:5093/28.126 12 мая 04, 10:23
Кому : Misha Shiposh 12 мая 04, 21:58
Тема : Проблем
-------------------------------------------------------------------------------
* Originally in BAD_MAIL
Приятного тебе дня и незабываемой ночи, Misha!
Wednesday May 12 2004, Serge Chervjakov writes to Misha Shiposh:
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
MS>> Ясно что cmp ставлю не по своей воле, с пониманием того что
MS>> циферки и должно быть "<равно>" Была идей через регесп
MS>> обработать последние циферки, тока вот как, куда пихать регесп, и
MS>> есть ли в этом смысл?
MS>> PS Как сортировочку сделать?
sub fido_order { # Сравнение фидошных адресов для использования с sort
my @a = split("[:./]",$a);
my @b = split("[:./]",$b);
return ($a[0] cmp $b[0] or $a[1] <=> $b[1] or $a[2] <=> $b[2] or $a[3]
<=> $b[3]);
};
Bulat, mailto:bulatz-AT-fort.tatarstan.ru, ICQ: work 15872722, home 11849833
... Иногда для того, чтобы изменить свое восприятие мира,
... люди пытаются изменить сам мир
--- GoldED+/W32 1.1.2
* Origin: Чубайс - повелитель Тьмы (2:5093/28.126)