|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/1978.3 06 Dec 2000 17:04:24
To : InSAn
Subject : Re: Sorting...
--------------------------------------------------------------------------------
Юґullo InSAn!
>> @mas = sort map reverse($_), @mas;
I> Спасибо...
I> Hо если записано кроме имени сервера еще и страницы
I> (http://my.site.com/aaa.cgi?id=1&p=478), то как тогда быть? Мне нужно,
I> чтобы сервера были по порядку... Т.е. следующим образом:
Cколько можно к честным людям домогаться? :)
map chomp, @urls = <>;
@urls = sort {
(my $x = $a) =~ s#//www\.#//#;
(my $y = $b) =~ s#//www\.#//#;
$x cmp $y;
} @urls;
print join "\n", @urls;
I> http://my.site.com/index.html
I> http://www.my.site.com/index.html
I> http://my.site.com/aaa.cgi?b=1
I> http://my.site.com/aaa.cgi?b=2
I> http://my.site.com/aaa.cgi?b=1&c=2
I> http://my.site.com/aaa.cgi?b=1&c=22
I> http://my.site2.ru/index.html
I> http://www.my.site2.ru/index.html
I> http://www.my.site2.ru/bbb.cgi?b=1
I> http://my.site2.ru/bbb.cgi?b=1
I> http://www.my.site2.ru/bbb.cgi?b=2
I> Что-то типа такого...
Кстати, отсортировано неправильно ;) Сравни первую и третью строчки.
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/1978.3 ДДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/1978.3)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Sorting...