Работа с каталогами.

Работа с каталогами в Perl, по существу, ничем не отличается от работы с любым другим файлом. Перед началом работы с ним его следует открыть обращением к стандартной функции opendir( ), которая создает в программе дескриптор каталога, используемый в качестве ссылки на открытый каталог при выполнении необходимых операций:

opendir ДЕСКРИПТОР, ИМЯ_КАТАЛОГА;

Отметим, что для дескрипторов каталогов в таблице символов Perl создается собственное пространство имен. Это означает, что в программе могут существовать, совершенно не конфликтуя между собой, дескрипторы файла и каталога с одинаковыми именами:

open CD, "/usr/out.dat"; # дескриптор файла

opendir CD, "/usr"; # Дескриптор каталога

ПРИМЕЧАНИЕ Использование одинаковых имен для дескрипторов файла и каталога может запутать самого пользователя. Однако для perl такой проблемы не существует: интерпретатор всегда точно знает, какой дескриптор следует использовать.

Для чтения содержащихся в каталоге файлов используется функция readdir( ):

readdir ДЕСКРИПТОР;

Для открытого каталога в списковом контексте она возвращает список имен всех файлов каталога или пустой список, если все имена уже были прочитаны. Эта же функция в скалярном контексте возвращает следующее имя файла из открытого каталога или неопределенное значение undef, если были прочитаны все имена файлов.

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

Открытый в программе каталог закрывается функцией closedir( ) с единственным параметром — дескриптором каталога:

closedir ДЕСКРИПТОР;

Эта функция обращается к соответствующей системной команде и возвращает значение «истина» в случае успешности выполнения операции закрытия каталога и «ложь» в противном случае.

Данная программа печатает содержимое каталога C:\DOS в операционной системе Windows.

Печать содержимого каталога

#! perl -w

opendir FDIR, "C:\\dos";

while( $name = readdir FDIR) {

print("$name\n");

}

closedir FDIR;

Функция readdir ( ) возвращает просто имя файла соответствующего открытого каталога. Для получения полного имени файла, которое требуется во всех операциях с файлами, его следует создать в программе вручную, например добавив к имени файла полное имя открытого каталога:

"c:\\dos\\" . $name

Можно также перед операциями с файлами какого-либо каталога сделать этот каталог текущим вызовом функции chdir( ), единственным необязательным параметром которой является полное или относительное имя каталога. В случае вызова без параметров функция устанавливает текущий каталог равным значению переменной окружения НОМЕ, если она установлена, или LOGDIR в противном случае. Получить или установить значение переменной окружения можно с помощью специального хэш-массива %ENV с ключом, равным имени переменной окружения, например $ENV{HOME} или $ENV{LOGDIR}. Если ни одна из указанных переменных окружения не установлена, то функция chdir без параметров ничего не делает. Она возвращает значение «истина», если произошло успешное обращение к соответствующей системной команде и текущий каталог изменен, и «ложь» в противном случае. В листинге 6.12 эта функция используется в алгоритме печати имен всех подкаталогов открытого каталога.

Листинг 6.12. Печать имен всех подкаталогов открытого каталога

#! perl -w

opendir FDIR, "c:\\dos";

chdir "c:\\dos"; # Устанавливаем текущий каталог

while( $name = readdir FDIR) {

print("$name\n") if -d $name; # Является файл каталогом?

}

closedir FDIR;

Иногда после чтения части содержимого каталога возникает необходимость снова вернуться к его началу. Функцией rewinddir( ) текущая позиция в каталоге устанавливается на начало, что позволяет осуществлять повторное чтение имей файлов каталога, не закрывая его. Единственным параметром этой функции является дескриптор открытого каталога.

Для создания нового каталога следует воспользоваться функцией mkdir( ), параметрами которой являются имя каталога и необязательный режим доступа (восьмеричное число):

mkdir ИМЯ_КАТАЛОГА [, РЕЖИМ];

Если задается не полное имя каталога, то он создается в текущем каталоге. В случае вызова функции с одним параметром режим доступа по умолчанию устанавливается равным 0777. Возвращаемым значением функции создания нового каталога mkdir( ) является «истина», если каталог создан, и «ложь», если произошла какая-либо ошибка, В последнем случае в специальной переменной $! хранится объяснение причины, по которой каталог не был создан.

Удалить каталог можно функцией rmdir( ) с параметром, содержащим строку с именем каталога. Если параметр не задан, то используется содержимое специальной переменной $_. Как и функция создания каталога, эта функция возвращает значение «истина» в случае успешного удаления каталога и «ложь» в противном случае, записывая в переменную $! объяснение возникшей ошибки.

Р.$author, $title, $pub, $year, $price. Текст этого примера можно взять здесь. Результат отображения отчета на экране выглядит следующим образом: Рис.1. Результат работы приложения Обратите внимание, что все символы строки шаблонов печатаются именно в тех позициях, в которых они заданы, а в поля этой же строки, определенные символом "@", подставлены значения соответствующих переменных. Эти значения отображаются в соответствии с заданными символами форматирования: для переменной $author вывод выровнен по левому краю (<), для $title по правому краю (>), для $pub по центру (|) соответствующего поля. Значения переменных $уеаr и $price форматируются в соответствии с числовым форматом. Если бы эти переменные не содержали числовые значения, то интерпретатор Perl вывел бы предупреждающее сообщение. Замечание. Символ начала поля в строке шаблонов ("@" или "^") учитывается при подсчете ширины поля вывода. Еще один нюанс, связанный с форматированием значений переменных. Если она содержит строковые данные, количество символов которых превосходит заданную ширину поля вывода, то лишние символы отсекаются справа. Именно это и произошло при выводе второй записи файла books: название второй книги напечатано не полностью. Как поступать в таких случаях? Можно увеличить ширину поля, если позволяют параметры выводного устройства, а можно воспользоваться еще одним символом форматирования, который как раз и предназначен для решения подобных проблем. Прежде всего следует для задания начала поля использовать символ "^". Его отличие от символа "@" заключается в том, что до начала вывода строковых данных в поле Perl в промежуточном буфере аккумулирует слова из выводимых данных, формируя строку, длина которой не превышает ширину поля. После этого сформированные данные выводятся в строке, а значение переменной вывода модифицируется: она будет содержать оставшиеся слова. При последующем использовании этой переменной в другой строке переменных того же формата будут выводиться сохраненные в ней отсеченные данные. Это позволяет выводить длинные данные в нескольких строках в одном вертикальном блоке, если задавать для вывода оставшихся данных точно такое же поле, что и при выводе первой порции. Заменим формат STDOUT программы примера 1 на следующий: format STDOUT =@<<<<<<<<<<<<<<<<<<<<<<<<< | ^>>>>>>>>>>> | @

Р.$author, $title, $pub, $year, $price | ^>>>>>>>>>>> | | |~ $title. Текст этого примера можно взять здесь. Теперь вывод нашей программы будет выглядеть так: Рис.2. Результат работы приложения Символ тильда "~" в конце строки шаблона подавляет вывод пустых строк. Если не поставить его, то между первой и второй книгой в нашем отчете появится дополнительная строка, как если бы была выведена вторая строка шаблона с пустым значением переменной $title. Символ подавления вывода пустых строк можно задавать в любом месте строки шаблона, помня, что при выводе он отображается, как пробел. В нашем примере мы знали, что данные в переменной $title не займут более двух строк при выводе. Поэтому в формате мы использовали эту информацию, добавив еще одну строку шаблона с переменной $title. А что делать, если не известно количество строк продолжения в которых будут выводиться данные? Можно воспользоваться двумя идущими подряд символами тильда вместо одного. В этом случае алгоритм буферизации данных по словам будет продолжаться до завершения вывода всех данных переменной. Если наш формат изменить на следующий: format STDOUT =@<<<<<<<<<<<<<<<<<<<<<<<<< | ^>>>>>>>>>>> | @

Р.$author, $title, $pub, $year, $price | ^>>>>>>>>>>> | | |~~ $title. Текст этого примера можно взять здесь. а в название второй книги добавить еще несколько слов, то вывод записи об этой книге нашей программой будет иметь следующий вид: Рис.3. Результат работы приложения Таким способом можно организовать вывод длинных данных в вертикальные текстовые блоки с переносом по словам. Прежде всего познакомимся с еще одним символом форматирования - символом "*", который позволяет выводить длинные строковые данные в нескольких строках, длина которых равна максимальной ширине вывода устройства отображения (экрана монитора или принтера). Например, если переменная $record содержит строковые данные длиной более 80 символов и вывод осуществляется на экран монитора, то следующая программа: #! perl -w   $record = "В.Долженков Ю.Колесников:Excel 2000:BHV:1999:90:Книга является... ."; write;   format STDOUT = @* $record . отобразит на экране ее содержимое следующим образом: Рис.1. Результат работы приложения Текст этого примера можно взять здесь. Достаточно часто случаются ситуации, когда отчет не помещается на одной странице. Можно печатать отчет в несколько страниц. Дело в том, что создание отчетов в Perl предполагает их вывод на принтер, а поэтому после вывода определенного количества строк функцией write() Perl автоматически выведет символ перехода на новую страницу и печать продолжится на следующей странице. По умолчанию количество строк на странице установлено равным 60. Эта величина хранится в специальной переменной $=, значение которой может быть изменено. Итак, мы теперь знаем, что переход на новую страницу происходит автоматически, но нам хотелось бы, чтобы на каждой странице печатался верхний колонтитул, в котором отображалось бы наименование отчета и печатались номера страниц. И это возможно в Perl. Следует только задать формат со специальным именем, добавив к имени формата, по которому мы выводим информацию (в нашей программе STDOUT), суффикс _TOP. Этот формат будет выводиться каждый раз, как начинается печать новой страницы. Изменим программу из предыдущего шага, добавив в нее следующее объявление формата: format STDOUT_TOP = Книги на складе @>>>>>> "стр. ".$% Автор Название Издатель Год Цена ======================================================================== . и явно зададим количество строк на странице, добавив перед циклом while оператор: $= = 6; Таким образом, программа примет следующий вид: #! perl -w open BOOKS, "< books"; # Открытие файла на чтение. $= = 6; while (<BOOKS>) { # Разбиение строки по символу ' : '. ($author, $title, $pub, $year, $price) = split (':'); write; # Форматный вывод строки. } format STDOUT = @<<<<<<<<<<<<<<<<<<<<<<<<< | ^>>>>>>>>>>> | @

Р. $author, $title, $pub, $year, $price | ^>>>>>>>>>>> | | |~~ $title . format STDOUT_TOP = Книги на складе @>>>>>> "стр. ".$% Автор Название Издатель Год Цена ======================================================================== . Текст этого примера можно взять здесь. Результат работы приложения изображен на рисунке 2: Рис.2. Результат работы приложения Теперь наша программа напечатает три страницы отчета, причем на каждой из них будет напечатан колонтитул. Вернемся к объявлению формата для колонтитула. Во-первых, при его задании мы использовали выражение "стр. ".$% в строке переменных. Действительно, хотя формат и не вычисляется, но во время выполнения программы вычисляются значения переменных и все выражения строки переменных формата. Во-вторых, мы использовали специальную переменную $%, которая хранит текущий номер выводимой страницы. Это позволило нам в колонтитуле напечатать номера страниц.