ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  11 Apr 2000  11:54:09
 To : gavro@ezmail.ru
 Subject : Re: А если...
 -------------------------------------------------------------------------------- 
 

 ger> From: "Dmitry" <gavro@ezmail.ru>
 ger> Oleg Bakiev пишет в сообщении <955236753@p58.f109.n5061.z2.ftn> ...
 >>Hello Dmitry!
 >>
 >>Sat Apr 08 2000 18:22, Dmitry wrote to All:
 >>
 >> D> Есть три взаимозависимых массива
 >> D> @price =  (  3,   5,   4,   2);
 >> D> @number = (  1,   2,   3,   4);
 >> D> @name =   ( 'b', 'a', 'd', 'c');
 >>
 >> D> нужно отсортировать массив @price.
 >>Первое, что приходит в голову (может быть можно и изящнее):
 >>    my @arr;
 >>    for (my $i = 0; $i < @price; $i ++) {
 >>        $arr[$i] = [$price[$i],$number[$i],$name[i]];
 >>    }
 >>    my @result = sort {$a->[0] <=> $b->[0]} @arr;
 >>
 >>Дальше, если надо, из @result раскидываешь данные назад по трём массивам.
 
 >>WBR, Oleg
 
 ger> А если все значения в массивах строчные и надо сортировать по алфавиту?
 
 Прочти perldoc perlop и поменяй "<=>" на "cmp".
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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