|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 09 Nov 2002 03:09:06
To : Nikolay Pichtin
Subject : Re: Отсортировать файлы
--------------------------------------------------------------------------------
Здравствуй, Nikolay Pichtin.
NP> Есть ряд файлов. Имена файлов
NP> 2002.1.txt
NP> 2002.2.txt
NP> .
NP> .
NP> 2002.9.txt
NP> 2002.10.txt
NP> 2002.11.txt
NP> .
NP> .
NP> 2002.40.txt
NP> и т.д.
NP> При сортировке sort{$b <=> $a} получаю массив
NP> 2002.9.txt
NP> 2002.8.txt
NP> .
NP> .
NP> 2002.4.txt
NP> 2002.40.txt
NP> Hеобходимо получить упорядоченный список с сортировкой поубывающей.
sort { my ($a0, $a1) = ($a =~ /^(\d+)\.(\d+)/); my ($b0, $b1) = ($b =~
/^(\d+)\.(\d+)/); $b0 <=> $a0 or $b1 <=> $a1 }
У меня устойчивое ощущение, что ты уже не первый раз задаешь очень похожий
вопрос...
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
$lotr = $hobbit; # Просто копируем "Хоббита"
$lotr =~ s/Bilbo/Frodo/g; # и легко пишем продолжение.
из Camel Book
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
