ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Albert N. MICHEEV 2:5049/80 06 Dec 2000 16:33:19
To : InSAn
Subject : Sorting...
--------------------------------------------------------------------------------
Ïpèâåò InSAn!
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Îòâå÷àÿ íà ïèñüìî InSAn ê All îò <06 Äåê 00>:
>>> 123|http://my.site.com
>>> 32|http://my.site2.ru
>>> 87345|http://you.site.net
>> @mas = sort map reverse($_), @mas;
I> Hî åñëè çàïèñàíî êpîìå èìåíè ñåpâåpà åùå è ñòpàíèöû
òî÷íî òàêæå. ÷òîáû êîppåêòíî îòñîpòèpîâàòü ypëû íyæíî pàçâåpíyòü èìÿ äîìåíà:
@mas = map { $$_[1] } sort { $$a[0] cmp $$b[0] }
map { [ m#^http://([^/]+)(.*)$# ? reverse($1).$2 : '' , $_ ] } @mas;
ÇÛ: äpyãèå ÷àéíèêè òâîè õîäû íåïpàâèëüíî äyìàþò
--- ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
* Origin: Îíè áyäyò íà ÷åòâåpåíüêàõ ïîëçàòü, à ìû íà íèõ ïëåâàòü. (2:5049/80)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
|
