ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Smolin                        2:5020/949     20 Oct 2001  20:43:46
 To : vilfred
 Subject : сортировка по нужному полю
 -------------------------------------------------------------------------------- 
 

  Once, 20 Oct 2001 17:48, vilfred wrote to All:
 
  v> A#B#C#D#E#F
  v> Чтобы отсортировать по полю E я пишу
  v> @sort= map{ $_ -> [1]} sort{$a->[0] cmp $b->[0]}
  v> map{[/.*?#.*?#.*?#.*?#(.*?)#.*?/, $_]} @res;
  v> А вот мне надо чтобы сортировалось по любому полю.
 
 Брр..
 my $sort_field = 4;
 
 @sort = map { join '#', @$_ }
         sort { $a->[$sort_field] cmp $b->[$sort_field] }
         map { [split /#/] } @res;
  Take care.
 
 --- skanking to the rhythm of the music by my side
  * Origin: Echoes of footsteps follow close behind (2:5020/949)
 
 

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

Тема:    Автор:    Дата:    сортировка по нужному полю   vilfred   20 Oct 2001 17:48:57   сортировка по нужному полю   Dmitry Smolin   20 Oct 2001 20:43:46