- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3540 [639]
От : Misha Shiposh 2:5023/42.1 13 мая 04, 01:55
Кому : Bulat Ziganshin 13 мая 04, 21:48
Тема : Проблем
-------------------------------------------------------------------------------
@e-mail:acorpnetklauga@hotbox.ru ICQ:167243831
¦ Привет _Bulat_ !
L============----····· · · ·
12 мая 2004 10:23, _Bulat Ziganshin_ ==. /Misha Shiposh/:
BZ> sub fido_order { # Сравнение фидошных адресов для использования с
BZ> sort
BZ> my @a = split("[:./]",$a);
BZ> my @b = split("[:./]",$b);
BZ> return ($a[0] cmp $b[0] or $a[1] <=> $b[1] or $a[2] <=> $b[2] or
BZ> $a[3] <=> $b[3]); };
Пасиб за иллюстрацию, и подсказку.
BCNU !
-----------------------------------------------------------------------
... np: (Winamp is not active ;-)
--- Hеверь всему, что пишут...
* Origin: Фоpматиpовать винт будем (2:5023/42.1)