ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     12 Sep 2004  12:36:02
 To : Nikolay Pichtin
 Subject : Re: Сортировка
 -------------------------------------------------------------------------------- 
 

 Nikolay Pichtin -> All  @ Sat, 11 Sep 2004 21:43:17 +0400:
 
  NP> Hеобходимо отсортировать хэш.
  NP> Делаю,
 
  NP> foreach (
  NP>  sort { ($a =~ /\/(.+)\/(\d+)/)[1] <=> ($b =~ /\/(.+)\/(\d+)/)[1] }
  NP>  keys (%Files_item)) {
  NP>  print "$_/$Files_item{$_}\n";
  NP> }
 
  NP> Hо отсортировывается не правильно. Как поправить сортировку?
 
 Как попросили - так и сортируется.  По числовой директории.  А как
 хотелось-то?  (Прежде чем ответить - подумай, а то будет опять две
 лишних итерации.)
 
  NP> ./Dat/item/1/dat.dat
  NP> ./Dat/item/1/1.1.1/dat.dat
  NP> ./Dat/item/1/1.1.2/dat.dat
  NP> ./Dat/item/1/1.5/dat.dat
  NP> ./Dat/item/1/1.1/dat.dat
  NP> ./Dat/item/1/1.2/dat.dat
  NP> ./Dat/item/2/2.4/dat.dat
  NP> ./Dat/item/2/2.1/dat.dat
  NP> ./Dat/item/2/2.3/dat.dat
  NP> ./Dat/item/2/2.2/dat.dat
  NP> ./Dat/item/2/dat.dat
  NP> ./Dat/item/2/2.5/dat.dat
  NP> ./Dat/item/3/3.7/dat.dat
  NP> ./Dat/item/3/3.1/dat.dat
  NP> ./Dat/item/3/dat.dat
  NP> ./Dat/item/3/3.5/dat.dat
  NP> ./Dat/item/3/3.6/dat.dat
  NP> ./Dat/item/3/3.3/dat.dat
  NP> ./Dat/item/4/dat.dat
  NP> ./Dat/item/5/5.2/dat.dat
  NP> ./Dat/item/5/dat.dat
  NP> ./Dat/item/7/dat.dat
  NP> ./Dat/item/8/dat.dat
  NP> ./Dat/item/9/dat.dat
  NP> ./Dat/item/10/dat.dat
  NP> ./Dat/item/11/dat.dat
  NP> ./Dat/item/12/dat.dat
  NP> ./Dat/item/13/dat.dat
  NP> ./Dat/item/14/dat.dat
  NP> ./Dat/item/14/14.1/dat.dat
  NP> ./Dat/item/16/dat.dat
  NP> ./Dat/item/17/dat.dat
  NP> ./Dat/item/18/dat.dat
  NP> ./Dat/item/19/dat.dat
  NP> ./Dat/item/19/19.1/dat.dat
  NP> ./Dat/item/19/19.4/dat.dat
  NP> ./Dat/item/19/19.3/dat.dat
  NP> ./Dat/item/19/19.2/dat.dat
  NP> ./Dat/item/21/dat.dat
  NP> ./Dat/item/22/dat.dat
  NP> ./Dat/item/24/24.2/dat.dat
  NP> ./Dat/item/24/dat.dat
  NP> ./Dat/item/24/24.1/dat.dat
  NP> ./Dat/item/25/dat.dat
  NP> ./Dat/item/26/dat.dat
 
 -- 
 Artem Chuprina <ran@ran.pp.ru>
 FIDO: 2:5020/122.256
 --- ifmail v.2.15dev5.3
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Сортировка   Nikolay Pichtin   11 Sep 2004 22:43:17   Re: Сортировка   Artem Chuprina   12 Sep 2004 12:36:02   Re: Сортировка   Nikolay Pichtin   14 Sep 2004 19:53:31   Re: Сортировка   Artem Chuprina   15 Sep 2004 14:46:16   test   "Timur Nigamov   15 Sep 2004 15:20:06   Moderatorial [+] (was: test)   Moderator of RU.PERL   15 Sep 2004 16:40:35   Сортировка   Ivan Frolkov   12 Sep 2004 23:56:08   Re: Сортировка   Nikolay Pichtin   14 Sep 2004 19:52:01