|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : milon 2:5020/400 25 Feb 2004 16:18:34
To : Yury Kopyl
Subject : Re: hard sort
--------------------------------------------------------------------------------
"Yury Kopyl" to "milon"
m> здесь $N - количество записей в одном поле или количество строк, коли
m> угодно, а $ref[$i] = \@{ $h{"field$i"} } - ссылка на анонимный массив
m> - их то и может быть сколько угодно.
YK> eval?
дык пробовал я.
создаю строку - суть контент
подпрограммы сортировки.
типа:
$query = <<'Q';
$ref[0]->[$a] cmp $ref[0]->$b
||
$ref[1]->[$a] cmp $ref[1]->$b
Q
а потом пишу:
@sorted_indexes = sort {
eval $query;
} (0 .. $N);
работает, но неправильно.
т.е. ошибок нет, а результат 0..$N.
список не сортируется.
--- ifmail v.2.15dev5.3
* Origin: Svit Online (post does not reflect views of Golden Tele (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
