|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vitus@ice.ru 2:5020/400 12 Mar 2001 15:38:57
To : Artur Penttinen
Subject : Re: Ïîìîãèòå ñ íåòðèâèàëüíîé ñîðòèðîâêîé
--------------------------------------------------------------------------------
Artur Penttinen <artur@niif.spb.su> wrote:
AP>Øåâ÷åíêî Àëåêñåé <alexeysh@rbc.ru> wrote:
ØÀ>> Ïðèâåò, All!
ØÀ>>
ØÀ>> Âîò íå çíàþ êàê áûòü... Òî÷íåå çíàþ ÷òî íàäî èñïîëüçîâàòü ñêîðåå âñåãî
ØÀ>> èàññèâ ìàññèâîâ èëè õýø ìàññèâîâ, íî íå çíàþ êàê - ññûëêè áëèí ãîëîâó
ØÀ>> íà áåêðåíü çà íî÷ü ñâåðíóëè, êîðî÷å ïîäñêàæèòå êàê áûòü.
ØÀ>>
ØÀ>> Èìååòñÿ ôàéë, â êîòîðîì êó÷êà ñòðîê âèäà
ØÀ>> Variable1|Variable2|Variable3|Variable4|Variable5|...|0
ØÀ>> (Ïîëåé îêîëî òðèäöàòè)
ØÀ>>
ØÀ>> Òàê âîò, òðåáóåòñÿ îòñîðòèðîâàòü ïî êàêîìó-ëèáî ñòîëáöó (âûáèðàåò
ØÀ>> ïîëüçîâàòåëü) âåñü ýòîò òàáóí èíôîðìàöèè. ÊÀÊ?
AP> sort { $a = (split("\|",$a)[2]; $b = (split("\|",$b))[2]; $a cmp $b; }
AP> <FILE>;
Âîò ïåðåïðåñàèâàòü $a è $b ÿ áû â äàííîì êîíòåêñòå ïîîñòåðåãñÿ.
Hàçâàë áû ïåðåìåííûå ñêàæåì $p è $q.
AP>Öåëüêà îïðàâäûâàåò ñðåäñòâèùè.
--
Victor Wagner vitus@ice.ru
Chief Technical Officer Office:7-(095)-748-53-88
Communiware.Net Home: 7-(095)-135-46-61
http://www.communiware.net http://www.ice.ru/~vitus
--- ifmail v.2.15dev5
* Origin: FT-center (2:5020/400)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
|
Re: Ïîìîãèòå ñ íåòðèâèàëüíîé ñîðòèðîâêîé 