Чтение файлов из дир-ии и пр.

[Отец Никон]

1) Можно ли из папки прочитать только х+у файлов, где х-начальная позиция, а у-последняя? (Надо отобразить список тем форума.)
2) Как отсортировать массив этих прочитанных фалов по дате, алфавиту и пр.?

[NeoNox]

perldoc -f readdir
perldoc -f sort

[Chs]

+ perldoc -f stat

[Отец Никон]

Это не ответы: все функции, которые вы назвали, мне известны.

Во-первых: readdir читает все фалы из директории. Мне этого не надо.
Во-вторых о sort. Как сделать сортировку по дате? Надо ли записать так: $a=stat, $b=stat и затем sort или как-то иначе.

[NeoNox]

Это не ответы:

Не функции должны быть известны, а что они делают должно быть известным.

Во-первых: readdir читает все фалы из директории.

Искуственный интеллект у этой функции отсутствует. Выбирай в массив и далее уже по индексам бери столько сколько нужно.

Во-вторых о sort. Как сделать сортировку по дате?

perldoc -f stat
получаешь из того же массива дату.
perldoc -f stat

Examples:

                   # sort lexically
                   @articles = sort @files;

                   # same thing, but with explicit sort routine
                   @articles = sort {$a cmp $b} @files;

                   # now case‐insensitively
                   @articles = sort {uc($a) cmp uc($b)} @files;

                   # same thing in reversed order
                   @articles = sort {$b cmp $a} @files;

                   # sort numerically ascending
                   @articles = sort {$a <=> $b} @files;
                 
                   # sort numerically descending
                   @articles = sort {$b <=> $a} @files;

Переводить комментарии надеюсь не нужно?
Кстати, в данном случае  я бы хэш использовал filename=>date.

[Отец Никон]

Мне известно, естественно, что эти функции делают.
То, что из массива брать нужные индексы - это я допёр. Но, понимаешь, чем больше в папке файлов, тем дольше работает функция. Но, кажется, я нашёл решение...

По поводу sort - то, что ты процитировал - это, кажется, из справки по ПЕРЛу? Я только сегодня это читал.
Но, к сожалению, я опять не понял, как их по дате отсортировать... Можно пример?

[NeoNox]

@not_sorted = (2, 1, 67, 23, 15, 10);
@sorted = sort {$a <=> $b} @not_sorted;
print join "\\n", @sorted;
Смысл понятен?

[Отец Никон]

Да, конечно. Смысл этого понятен. Но не это надо...
Я сам виноват, что не сформулировал чётко вопрос.
На экран выводятся темы сообщений форума. Названия тем и дата их последнего изменения содержатся в файлах. Вот как я это делаю (вообще-то, это не я, а из книги Р. Колбурна, но я много добавил в его код...):  

@topics = grep (/^.+\\.txt$/, readdir (TOPICS));
...
&parse_topic;
...
print "$page_title\\n";
...
Здесь $page_title - заголовок темы.

Теперь процедура расшифровки файла.

sub parse_topic {
$topic_file = "$forums_path/$forum/" . $topic . ".txt";
eval {
open (TOPIC, "< $topic_file")
or die "Can\'t open $topic_file";
@topic_text = ;
};
$topic_text = join \'\', @topic_text;
# Extract the topic title from the topic
if ($topic_text =~ /