|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : InSAn 2:5020/400 02 May 2001 16:47:20 To : All Subject : Re: Text&index - добавление -------------------------------------------------------------------------------- > > Есть такая проблема, есть файл в котором в каждой строчке есть всего одно > > слово, нужно его посортировать (создать индекс). Как это проще всего > сделать? > > #Сортировка > open (FILE, $file); > @record = <FILE>; > sort @record {$a cmp $b} @record; > seek(FILE, 0, 0); Пропустил... :) print FILE @record; > close(FILE); -- Отправлено через сервер Talk.Ru - http://www.talk.ru --- ifmail v.2.15dev5 * Origin: Talk.Ru (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/6488caa1b630.html, оценка из 5, голосов 10
|