- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3533 [639]
От : Vlad Pluzhnikov 2:5021/19.19 12 мая 04, 09:19
Кому : Misha Shiposh 12 мая 04, 21:58
Тема : Re: Проблем
-------------------------------------------------------------------------------
Hi Misha!
Tuesday May 11 2004 22:42, Misha Shiposh wrote to All:
MS> Есть хешь массивов, ключами которого являются (в текстовом контексте)
MS> строки типа 2:5023/42.1 и т.д.
[snip]
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]);
};
ну и foreach $addr (sort fido_order(keys (%point))) { ...
-- Vlad
... *t* _e_ /a/ *m* _ [ _ /Q/ *N* _X_ / ] / *r* _u_ /l/ *e* _z_
--- GoldED+/W32 1.1.5-040120
* Origin: QNX You Must See It To Believe It ! (2:5021/19.19)