|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Yuriy Kaminskiy 2:5020/517.21 05 Jul 2001 20:16:48 To : Sergey Dorozhkin Subject : Re: Помогите !!! -------------------------------------------------------------------------------- >>>>> On 09:37 02/7/2001, Sergey Dorozhkin <2:5020/1412.753> writes: SD> индекс,число SD> -Как упоpядочить и вывести содеpжимое файла по убыванию числа ? SD> -Записей в файле может быть очень-очень много... Про sort тебе уже сказали, про Кнута тоже, а я от себя добавлю пять копеек: записи в $db=tie %hash,'DB_File',...,$DB_BTREE хранятся упорядоченно (по ключу); достать в порядке возрастания их можно при помощи $db->seq(...) (см. perldoc DB_File на предмет R_FIRST/R_NEXT). Ах да, еще стоит поставить кэш по-больше - это сделает жизнь сильно веселее :) (см. perldoc DB_File на предмет cachesize). ИМХО, это будет сильно проще, чем писать алгоритмы внешней сортировки руками, проходясь по всем раскиданным там граблям :) -- Yuriy Kaminskiy. --- Gnus v5.2.25/XEmacs 19.14 * Origin: C2B8 59EA 497A D6F6 2640 0E49 D84A AADA EACE (2:5020/517.21@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/174279c4acdfd.html, оценка из 5, голосов 10
|