ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Leonid Subbotin 2:5007/16.1 12 Mar 2001 19:35:06
To : ˜¥¢ç¥ª® €«¥ªá¥©
Subject : Ïîìîãèòå ñ íåòðèâèàëüíîé ñîðòèðîâêîé
--------------------------------------------------------------------------------
ØÀ> Èìååòñÿ ôàéë, â êîòîðîì êó÷êà ñòðîê âèäà
ØÀ> Variable1|Variable2|Variable3|Variable4|Variable5|...|0
ØÀ> (Ïîëåé îêîëî òðèäöàòè)
ØÀ> Òàê âîò, òðåáóåòñÿ îòñîðòèðîâàòü ïî êàêîìó-ëèáî ñòîëáöó (âûáèðàåò
ØÀ> ïîëüçîâàòåëü) âåñü ýòîò òàáóí èíôîðìàöèè. ÊÀÊ?
print map{"$_->[0]\n"} sort{$a->[2] cmp $b->[2]} map{[$_,split /\|/]} @a;
^ ^ ^
ýòî íóæíûé ñòîëáåö ýòî òàáóí
èíôîðìàöèè
... $<n
--- GoldED+/W32 1.1.4
* Origin: Sln Station (2:5007/16.1)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
|
