- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3541 [639]
От : Vlad Pluzhnikov 2:5021/19.19 13 мая 04, 08:57
Кому : Bulat Ziganshin 13 мая 04, 21:48
Тема : Re: Проблем
-------------------------------------------------------------------------------
Hi Bulat!
Wednesday May 12 2004 14:53, Bulat Ziganshin wrote to Vlad Pluzhnikov:
VP>> sub fido_order { # Сравнение фидошных адресов для
VP>> использования с sort my @a = split("[:./]",$a); my @b =
VP>> split("[:./]",$b); return ($a[0] cmp $b[0] or $a[1] <=> $b[1]
VP>> or $a[2] <=> $b[2] or $a[3] <=> $b[3]); };
BZ> :))) может, ты знаешь, почему там в первый раз "cmp" написано, а
BZ> дальше уже "<=>" стоят?
тебе, как автору виднее :))
-- 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)