# Сделать что-то с $chunk

Или воспользуйтесь оператором m g для последовательного извлечения фрагментов строки:

while (О) {

while ( /(\w[\w -].)/g ) {

# Сделать что-то с $1

Комментарий

Сначала необходимо решить, что же подразумевается под «словом». Иногда это любые последовательности символов, кроме пропусков; иногда - идентификаторы программ, а иногда - слова английского языка. От определения зависит и используемое регулярное выражение.

Два варианта решения, приведенные выше, работают по-разному. В первом варианте шаблон определяет, что не является словом. Во втором варианте все наоборот - шаблон решает, что им является.

На основе этой методики нетрудно подсчитать относительные частоты всех слов в файле. Количество экземпляров каждого слова сохраняется в хэше;

# Подсчет экземпляров слов в файле %seen = 0,

while (о) {

while ( /(\w[ \w-].)/g ) { $seen{lc $1}++,

# Отсортировать выходной хэш no убыванию значений

foreach Sword ( sort { $seen{$b} <=> $seen{$a) } keys %seen) { printf %5d %s\n , $seen{$word}, Sword,

Чтобы программа подсчитывала количество строк вместо слов, уберите второй цикл while и замените его на $seen{lc $ }++:

# Подсчет экземпляров строк в файле %seen = 0,

while (О) {

$seen{lc $ }++,

foreach Sline ( sort { $seen{$b} <=> $seen{$a} } keys %seen ) { printf %5d %s , $seen{$line}, Sline,

Порой слова могут выглядеть довольно странно - например, «М.1.Т», «Micro-$oft», «осЬск», «49ers», «street-wise», «and/ог», «&», «с/о», «St.», «TschuB» или

8.4. Чтение файла по строкам или абзацам в обратном направлении 297

«№йо». Помните об этом при выборе шаблона. В двух последних примерах вам придется включить в программу директиву use locale и использовать метасимвол \w в текущем локальном контексте.

> Смотри также-

Описание функции split вpetifunc(l); рецепты 6.3; 6.23.

8.4. Чтение файла по строкам или абзацам в обратном направлении

Проблема

Требуется обработать каждую строку или абзац файла в обратном направлении.

Решение

Прочитайте все строки в массив и организуйте обработку элементов массива от конца к началу:

(gilines = <FILE>,

while ($line = pop (alines) {

# Сделать что-то с $line

Или занесите строки в массив в обратном порядке:

(alines = reverse <F1LE>, foreach $line ((alines) {

# Сделать что-то с $line

Комментарий

Ограничения, связанные с доступом к файлам (см. введение), не позволяют последовательно читать строки с конца файла. Приходится читать строки в память и обрабатывать их в обратном порядке. Конечно, расходы памяти при этом будут по крайней мере не меньше размера файла.

В первом варианте массив строк перебирается в обратном порядке. Такая обработка является деструктивной, поскольку при каждой итерации из массива выталкивается последний элемент. Впрочем, то же самое можно сделать и недеструктивно:

for ($1 = $#lines, $1 1= -1, $1--) { $line = $lines[$i],

Во втором варианте генерируется массив строк, изначально расположенных в обратном порядке. Его тоже можно обработать недеструктивно. Мы получаем массив с обратным порядком строк, поскольку присваивание @lines обеспечива-

ет вызов reverse в списковом контексте, что, в свою очередь, обеспечивает списковый контекст для оператора <FILE>. В списковом контексте о возвращает список всех строк файла.

Показанные решения легко распространяются на чтение абзацев, достаточно изменить значение $/:

# Внешний блок обеспечивает существование временной локальной копии $/ {

local $/ = ,

paragraphs = reverse <FILE>,

foreach $paragraph (@paragraphs) { # Сделать что-то

> Смотри также-

Описание функции reverse вperlfunc{\); описание специальной переменной $/ вperlvar{\)\ рецепты 4.10; 1.6.

8.5. Чтение из дополняемого файла

Проблема

Требуется читать данные из непрерывно растущего файла, однако при достижении конца файла (текущего) следующие попытки чтения завершаются неудачей.

Решение

Читайте данные, пока не будет достигнут конец файла. Сделайте паузу, сбросьте флаг EOF и прочитайте новую порцию данных. Повторяйте, пока процесс не прервется. Флаг EOF сбрасывается либо функцией seek:

for (,,) {

while (<FH>) { }

sleep SSOMETIME, seek(FH, 0, 1),

либо методом clears г г модуля IO::Handle:

use 10 Seekable,

for (,,) {

while (<FH>) { }

sleep $S0HETIHE, FH->clearerr(),