ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      09 Nov 2002  10:28:21
 To : Artem Chuprina
 Subject : Re: Отсортировать файлы
 -------------------------------------------------------------------------------- 
 

 
  NP>>  Есть ряд файлов. Имена файлов
  NP>> 2002.1.txt
  NP>> 2002.2.txt
 
 [Skip]
 
  NP>> 2002.4.txt
  NP>> 2002.40.txt
  NP>>  Hеобходимо получить упорядоченный список с сортировкой
  NP>> поубывающей.
 
  AC> sort { my ($a0, $a1) = ($a =~ /^(\d+)\.(\d+)/); my ($b0, $b1) = ($b =~
  AC> /^(\d+)\.(\d+)/); $b0 <=> $a0 or $b1 <=> $a1 }
 
 Спасибо!
 
  AC> У меня устойчивое ощущение, что ты уже не первый раз задаешь очень
  AC> похожий вопрос...
 
 Hе правильное ощущение. Hе задавал я такой вопрос.
 * Как вы стpоитесь? Бежите один по одному.
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Отсортировать файлы   Nikolay Pichtin   08 Nov 2002 22:42:10   Re: Отсортировать файлы   vilfred   09 Nov 2002 02:58:41   Re: Отсортировать файлы   Artem Chuprina   09 Nov 2002 03:09:06   Re: Отсортировать файлы   Nikolay Pichtin   09 Nov 2002 10:28:21   Re: Отсортировать файлы   Pavel Reich   11 Nov 2002 09:45:20