8.1. Чтение строк с символами продолжения 293

Функция sysseek является небуферизоваиной заменой для seek и tell. Она получает те же аргументы, что и seek, но возвращает новую позицию при успещ-ном вызове или undef в случае ошибки. Текущая позиция внутри файла определяется следующим образом:

$pos = sysseek(HANOLE, О, 1), # Не изменять позицию

die Couldn t sysseek $i\n unless defined $pos,

Мы описали базовые операции с файлами, которые находятся в вашем распоряжении. Искусство ирограммироваиня как раз и заключается в ирименении простейших операций для решения сложных проблем - например, определения количества строк в файле, перестановки строк, случайного выбора строки из файла, построения индексов и т д.

8.1. Чтение строк с символами продолжения

Проблема

Имеется файл с длинными строками, которые делятся на две и более строки. Символ \ означает, что данная строка продолжается на следующей. Вы хотите объединить разделенные строки. Подобное разделение длинных строк на короткие встречается в шаке-файлах, сценариях командного интерпретатора, конфигурационных файлах и многих языках сценариев.

Решение

Последовательно объединяйте ирочита1И1ые строки, пока не встретится строка без символа иродолжепия:

while (defined($line = <FH>) ) { chomp Sline, If (Sline =- s/\\$ ) { Sline = <FH>, redo unless eof(FH)

>

# Обработать полную запись в Sline

Комментарий

Рассмотрим пример входного файла:

DISTFILES = $(DIST COMMON) S(SOURCES) S(HEADERS) \

SdEXINFOS) S(INFOS) $(MANS) $(DATA) DEP D1STFILES = S(DIST COMMON) $(SOURCES) $(HEADERS) \

S(TEXINFOS) $(INFO DEPS) $(MANS) S(DATA) \

S(EXTRA DIST)

Вы хотите обработать текст, игнорируя ви)трениие разрывы строк. В приведенном примере первая запись занимает две строки, вторая - три строки и т. д.

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

Описание функции chomp ъperlfunc{i); описание ключевого слова redo в разделе «Еоор Control» perlsyn{\).

8.2. Подсчет строк (абзацев, записей) в файле

Проблема

Требуется подсчитать количество строк в файле.

Решение

Во многих системах существует программа wc, подсчитывающая строки в файле:

Scount = wc -1 < Sfile; die wc failed: $ if S; chomp(Scount),

Кроме того, можно открыть файл и последовательно читать строки до конца, увеличивая значение счетчика:

open(FILE, "< Sfile") or die "cant open $file: S";

$count++ while <FILE>;

tt Scount содержит число прочитанных строк

Самое быстрое решение предполагает, что строки действительно завершаются "\п":

Scount += tr/\n/\n/ while sysread(FILE, $ , 2 ** 16);

Алгоритм работает следующим образом. Цикл while читает строки, которые могут быть, а могут и не быть полными записями, - они могут заканчиваться символом \ (и переводом строки). Оператор подстановки s / пытается удалить \ в конце строки. Если подстановка заканчивается неудачей, значит, мы нащли строку без \. В противном случае мы читаем следующую запись, приписываем ее к накапливаемой переменной $line и возвращаемся к началу цикла while с помощью redo. Затем выполняется команда chomp.

У файлов такого формата имеется одна распространенная проблема - невидимые пробелы между \ и концом строки. Менее строгий вариант подстановки выглядит так:

If ($line =•- s/\\\s.$ ) { # Как и прежде

К сожалению, даже если ваша программа прощает мелкие погрешности, существуют и другие, которые этого не делают. Будьте снисходительны к входным данным и строги - к выходным.

8.3. Обработка каждого слова в файле 295

Комментарий

Хотя размер файла в байтах можно определить с помощью -s $file, обычно полученная цифра никак не связана с количеством строк. Оператор -s рассматривается в главе 9 «Каталоги».

Если вы не хотите или не можете перепоручить черную работу другой программе, имитируйте работу wc - самостоятельно откройте и прочитайте файл:

open(FILE, < Sfile") or die "cant open Sfile. S";

Scount++ while <FILE>,

# Scount содержит число прочитанных строк

Другой вариант выглядит так:

open(FILE, "< Sfile) or die cant open Sfile: for ($count=0; <FILE>; $count++) { }

Если вы ие читаете из других файлов, можно обойтись без переменной Scount. Специальная переменная $. содержит количество прочитанных строк с момента последнего явного вызова close для файлового манипулятора:

1 while <FILE>, Scount = $.,

В этом варианте все записи файла последовательно читаются без использования временных переменных.

Чтобы подсчитать абзацы, присвойте перед чтением глобальному разделителю входных записей $/ пустую строку ("), и тогда оператор о будет считывать ие строки, а целые абзацы:

S/ = ; # Включить режим чтения абзацев

open(FILE, Sfile) or die "can t open Sfile: S"; 1 while <FILE>; $para count = $ ;

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

Описание специальной переменной %/ ърегЬаг{\); введение главы 9; страница руководства wc{\).

8.3. Обработка каждого слова в файле

Проблема

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

Решение

Разделите каждую строку но иронускам с помощью функции split:

while (о) {

for Schunk (split) {