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