WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!

Pages:     | 1 | 2 || 4 | 5 |   ...   | 7 |

«Освой самостоятельно за 24 часа Cl i nt o n Pi e r c e T e a c h Y o u r s e l f P e r l 24 Hours on Computer 201 West 103rd St., Indianapolis, I Клинтон Пирс самостоятельно часа Издательский ...»

-- [ Страница 3 ] --

После этого попытайтесь запустить программу, набрав в командной строке perl Stats В листинге 8.2 содержится пример диалога с этой программой.

Листинг Исходный текст программы 1:

-w 2:

3: use strict;

4: sub mean { 5:

6: my $sum;

7: { 8:

) 10:

11: } sub median { 13: { $a <=> $b} 14: if { 16: } else { 17:

18:

19:

20: $upper)};

21:

22: } 23: sub { 24:.

25:

26:

28: my $elem { 29:

} 31:

32: } 33: my($data, 34: print "Введите данные, разделенные запятыми: ";

35: $data=;

chomp $data;

36: $data);

37:

38: print ", "\n";

39: print "Среднее: "\n";

40: print "Станд. ", "\n";

Листинг 8.2. Пример диалога с программой Введите данные, разделенные запятыми: 14.5,6,8,9,10, Медиана: 9. Среднее: 13. Станд. 10. Проведем анализ программы.

Строка 1. В этой строке указывается путь к интерпретатору (измените его в соответствии с конфигурацией вашей системы) и ключ Всегда включайте режим вывода предупреждений!

Строка 3. Директива use strict указывает, что все переменные должны быть явно объявлены в программе с помощью оператора и строки должны быть заключены в кавычки.

Строки Функция mean{) находит среднее арифметическое группы чи сел. С помощью цикла foreach вычисляется сумма чисел а затем она делится на количество чисел.

Строки Функция вычисляет данные двумя способами. При нечетном количестве вводимых элементов она просто выбирает средний элемент. Для этого количество элементов делится на 2, получившееся зна чение округляется до ближайшего целого и используется в качестве индекса предварительно отсортированного массива с нашими числами. При четном количестве элементов функция находит два средних элемента. Эти числа — и Их среднее находится с помощью функции mean(). Это зна чение и возвращается функцией вычисления медиан.

132 I. Основы Perl Строки Функция очень проста и состоит в основном из ма тематического выражения. В этом выражении из каждого элемента массива §data вычитается среднее значение всех элементов и получившееся число возводится в квадрат. Все подобные результаты суммируются в переменной Для нахождения стандартного отклонения сумма всех квадра тичных отклонений делится на количество элементов минус единица, и из получившегося значения берется квадратный корень.

Строки Все необходимые переменные основной программы объяв ляются с помощью оператора Пользователь вводит данные, которые по мещаются в скаляр Sdata. Затем с помощью функции split и шаблона /[\s,]+/ введенные пользователем данные разделяются и помещаются в мас сив Этот шаблон определяет в качестве разделителя символы про бела и запятую. Дополнительные пробелы и запятые игнорируются.

Строки Генерируется вывод. Не забывайте, что это не единственное место, где можно вызвать функции mean(), и std_dev(). Они могут вызывать друг друга: обе функции std_dev() и median{} используют функцию Это неплохой пример повторного использования кода.

Подробнее о функциях Многие технические приемы программирования, как, например, рекурсивный вы зов функций, могут быть эффективно реализованы только с учетом области видимо сти переменных. К этому вопросу непосредственное отношение имеет оператор use strict, ужесточающий синтаксический контроль в Perl, что позволяет избежать неко торых грубых ошибок.

Объявление переменных с помощью оператора l ocal В версии 4 не было по-настоящему приватных переменных. Вместо них в Perl 4 были "почти" приватные переменные. Концепция "почти" приватных пере менных до сих пор присутствует и в 5. Мы будем называть такие переменные ло кальными. Для объявления этих переменных используется оператор local:

sub { local остальная часть функции...

> В этом примере объявляется локальная переменная $foo подпрограммы Поведение переменной, объявленной с помощью оператора local, почти не отличает ся от поведения переменной, объявленной с помощью оператора Областью види мости локальной переменной может быть подпрограмма, блок или конструкция При завершении подпрограммы или блока эта переменная аннулируется.

Отличие состоит в том, что переменная, объявленная локальной, видима не только в пределах того блока, в котором она объявлена, но и во всех подпрограммах, вызван ных из этого блока. В табл. 8.1 приведено сравнение приватных и локальных пере менных.

8-й час. Функции Таблица Сравнение операторов и sub { sub } > sub { sub { local my print $foo;

print myfunc();

Два фрагмента текста, приведенные в табл. 8.1, практически идентичны, за исклю чением объявления переменной $foo в функции Слева эта переменная объ явлена как приватная, а справа — как локальная.

В коде слева функция изменяет глобальную переменную $foo. По сле возвращения управления в будет напечатано число 20, так как приватная переменная $foo, принадлежащая этой функции, не была изменена.

В коде справа в функции создается локальная переменная $foo. За тем функция foo(} устанавливает для переменной $foo значение 0. Это та же переменная, что и в myfunc(), локальные переменные передаются в подпрограм мы. После возвращения в будет напечатано значение 0.

Специально для любителей терминологии сообщим, что локальные переменные также называются переменными с динамической областью видимости, так как их область видимости изменяется по мере вызова подпрограмм. Переменная, объявленная с помощью оператора имеет лексическую область видимости, которая сравнительно просто определяется после анализа Лексическая об ласть видимости совпадает с блоком, в котором была объявлена данная пере менная, причем s процессе выполнения программы эта область не изменяется.

Итак, если вам нужно объявить по-настоящему приватную переменную, исполь зуйте оператор ray.

Как сделать Perl строже Perl — снисходительный и терпимый язык программирования. Он не обращает особого внимания на то, как выглядит ваш код, лишь бы он работал. Но имеется возможность ука зать интерпретатору Perl, чтобы тот более взыскательно анализировал исходный код. На пример, предупреждения, включенные в командную строку или в первую строку програм мы, позволяют избежать многих досадных ошибок. предупреждает об использовании неопределенных переменных, однократном использовании имен и подобных вещах.

При разработке больших программных проектов (особенно по мере усложнения программы) было бы неплохо, чтобы хоть как-то удерживал вас от совершения случайных ошибок. Кроме ключа в интерпретаторе Perl имеются и другие средства для вывода дополнительных предупреждений во время компиляции. Для этого ис пользуется оператор use strict:

use strict;

sub { my $x;

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

• Использование имени переменной, не являющейся специальной, без объявления в операторе • Использование недопустимого имени функции (без и скобок) перед тем, как эта функция была определена.

• Другие потенциальные ошибки Директива use strict помогает справиться с первыми двумя проблемами. Теперь в программе вы уже не сможете использовать глобальную переменную вместо приват ной. Это способствует созданию более изолированного кода, не полагающегося на использование глобальных переменных.

Другая ловушка, выпутаться из которой помогает директива use strict, — исполь зование недопустимых ключевых слов. Посмотрите на код В данном случае непонятно, что такое value — строка без кавычек или имя функ ции. При использовании директивы use strict Perl сообщит, что этот код непонятен и синтаксически недопустим, если только соответствующая функция предварительно не определена.

С этого момента все примеры и относительно длинные листинги в книге будут со держать директиву use strict.

Рекурсия Рано или поздно вы познакомитесь со специальным классом подпрограмм. Во время своей работы эти подпрограммы вызывают сами себя. Они называются рекур сивными подпрограммами.

Рекурсивные подпрограммы используются в случае, если задача может быть све дена к решению более простой идентичной задачи, а та, в свою очередь, — к еще более простой, и т.д. Одна из рекурсивных задач — поиск файла в древовидной структуре каталогов: вначале поиск ведется в самом верхнем каталоге, затем насту пает очередь подкаталогов и т.д. Как видите, в данном случае подзадачи идентичны основной задаче.

Другая рекурсивная задача связана с вычислением факториалов. Факториалы ис пользуются в статистике. Количество перестановок букв равняется факториа лу шести. Факториал — это произведение всех целых чисел, меньших данного, вклю чая 1. Например, факториал числа 6 — 6x5x4x3x2x1 или 720. Для вычисления факто риала 6 необходимо факториал 5 умножить на 6. Для вычисления факториала 5 Необ ходимо факториал 4 умножить на 5 и т.д. Рекурсивная функция для нахождения фак ториалов приведена в листинге 8.3.

Листинг 8.3. Вычисление факториалов с помощью рекурсии 1: factorial { 2: my 3: if <= 4:

5: } 6: print 8-й Функции ! Проведем анализ программы.

• Строка 2. Аргумент подпрограммы factorial!) присваивается переменной которая объявлена в данной подпрограмме как приватная.

• Строка 3. Для каждой рекурсивной функции необходимо предусмотреть ус ловие прекращения. Это то значение аргумента, при котором функция больше не вызывает сама себя. Для подпрограммы () условие прекраще ния — это вычисление факториала 1 или 0. Два приведенных значения рав ны единице, поэтому подпрограмма factorial(), вызванная с аргументом или 1, выполняет код (это случай $пшп<=1).

• Строка 4. Если аргумент не равен нулю или единице, вычисляется фактори ал предыдущего числа, как показано ниже.

Если $num равна... строке 4 вычисляется...

б 3 return(3*factorial(3)} 1 строка 4 не выполняется;

функция factorial(l) возвращает зна В результате выполнения цепочки вызовов рекурсивных функций будут последователь но вычислены факториалы всех чисел, меньших данного. Их значения по цепочке пере даются в вызвавшие их функции, и в конце концов вычисляется значение факториала 6.

Рекурсивные функции встречаются не часто. Большие рекурсивные функции тя жело создавать и отлаживать. Любая задача, решаемая с помощью циклов for, while, foreach, может быть решена при помощи рекурсии, и, наоборот, всякая рекурсивная задача может быть выполнена с помощью циклов. Рекурсивные процедуры обычно используются для решения относительно небольшого круга задач, естественным обра зом формализуемых с помощью метода рекурсии.

Резюме Perl поддерживает определяемые пользователем функции, называемые подпро граммами, которые ведут себя подобно встроенным функциям. Им можно передавать аргументы;

при необходимости подпрограммы пользователя могут возвращать значе ния в место вызова. Функции Perl могут вызывать другие функции и даже самих себя.

В Perl также можно объявить приватную переменную внутри функции или блока кода и создать законченные фрагменты кода, допускающие повторное использование.

Вопросы и ответы Есть ли на самом деле какая-то разница при вызове функции с символом & и без него?

Нет ничего такого, что могло бы иметь к вам какое-нибудь отношение. Существует небольшая разница между вызовами и foo при использовании прототипов функций 136 Часть I. Основы Perl или отсутствии скобок после вызова. Но эта тема выходит за рамки нашей книги. Вы можете удовлетворить свое любопытство, обратившись к странице справочного руководства В моей программе есть строка для которой Perl выводит сообщение об ошибке syntax error, next 2 tokens шу(.

Вы или что-то неправильно набрали, или у вас установлен Perl версии 4. Наберите в командной строке perl -v. Если у вас действительно четвертая версия, немедленно установите более новую.

Как передавать в подпрограмму или возвращать из нее функции, дескрипторы файлов, а также сразу несколько массивов или хэшей?

Для передачи функций, нескольких массивов или хэшей нужно использовать указате ли, рассматриваемые на 13-м занятии, "Структуры и ссылки". Для передачи дескрипторов файлов в подпрограмму и обратно следует воспользоваться модулем Handle или мето дикой приведения типов Обе эти темы выходят за рамки данной книги.

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

Один из методов — создание списка литералов, для чего вызов функции помешают в круглые скобки. Затем вы можете выбрать любую интересующую вас часть этого списка. В следующем примере извлекается значение года (текущий год минус 1900) из встроенной функции возвращающей сразу девять значений:

print "На дворе 1900+ Другой метод — присваивание переменных списку таким образом, чтобы все ненуж ные значения присваивались undef или какой-нибудь вспомогательной переменной:

(undef, undef, undef, undef, undef, $year offset)=localtime;

Семинар Контрольные вопросы Посмотрите на следующий блок кода:

bar { <$а, } sub foo { my ($a)=67;

$Ь);

} 10) 1. Какое значение будет иметь переменная $Ь после выполнения оператора bar($a, $b)?

5;

б) 100;

в) 68.

Функции 2. Какое значение возвращается функцией foo()?

67;

в) 3. Какую область видимости имеет переменная $Ь в функции foo{)?

а) лексическую;

б) динамическую;

в) глобальную.

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

2. Правильным является вариант б). Удивлены? Последнее выражение функ ции возвращает 68, так как значение $а передается в и там Функция foo() возвращает значение своего последнего выражения — 68.

3. Правильный ответ вариант б). Переменные, объявленные с помощью опе ратора local, называются переменными с динамической областью видимости.

Упражнения Используйте функции упражнения по статистике, приведенные выше, и код подсчета слов, рассмотренный на 7-м занятии, для анализа длины слов в документе. Вычислите их среднюю длину, медиану и стандартное от клонение Напишите функцию для вывода части последовательности чисел Фибоначчи.

Числа Фибоначчи — это бесконечная математическая последовательность, подсказанная самой природой. Она начинается с 0, 1, I, 2, 3, 5, 8. Каждый по следующий ее член является суммой двух предьщуших (кроме 0 и 1). Эти чис ла могут быть вычислены с помощью рекурсивной процедуры или цикла.

138 I. Основы Perl Часть II Углубляемся в Perl Темы занятий 9 Дополнительные функции и операторы 10 Файлы и каталоги Взаимодействие с операционной системой Работа с командной строкой Структуры и Использование модулей Обработка данных в 16 Сообщество 9-й час Дополнительные функции и операторы В культуре Perl есть такая традиция: "Существует более одного способа сделать что-либо". На этом занятии мы познакомимся с данной философией поближе. Мы рассмотрим целую "сборную солянку" новых функций и операторов.

При поиске скалярных величин и выполнении операций над ними вы до сих пор использовали регулярные выражения. Но поскольку в Perl существует более одного способа сделать что-либо, в нем предусмотрены различные функции поиска и редак тирования скаляров. Итак, на этом занятии вы познакомитесь с некоторыми новыми способами.

Кроме того, раньше мы рассматривали массивы как линейные списки элементов, перебор которых осуществлялся с помощью оператора foreach, а объединение в ска лярную переменную — с помощью функции join. На этом занятии вы познакомитесь с совершенно новым взглядом на массивы.

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

Основные темы этого занятия.

• Поиск скаляров внутри простых строк.

• Подстановка символов.

• Использование функции print.

• Применение массивов в качестве стеков и очередей.

Поиск скаляров Регулярные выражения — прекрасный способ поиска скаляров по шаблонам, но иногда это просто стрельба из пушки по воробьям. В некоторые "накладные рас ходы" (впрочем, небольшие) связаны с трансляцией шаблона, а затем поиском этого 140 Часть II. Углубляемся в Perl шаблона среди скаляров. Кроме того, при написании регулярных выражений легко ошибиться. В предусмотрено несколько функций поиска и извлечения простой информации из скаляров.

Функция index Если вы просто хотите найти одну строку внутри другого скаляра, воспользуйтесь предусмотренной для этого в функцией index. Ее синтаксис выглядит следующим образом:

index строка, подстрока index строка, подстрока, Функция index начинает просмотр строки слева и ищет в ней подстроку. Функция index возвращает позицию, в которой найдена подстрока, причем значение 0 соответ ствует крайней левой позиции в строке. Если подстрока не найдена, то функция index возвращает значение -1. Искомая строка может состоять из букв, быть скаляром или любым выражением, возвращающим строковое значение. Подстрока — это не регуляр ное выражение, а просто другой скаляр.

Ниже приведено несколько примеров. Помните, что функции и операторы Perl можно записывать, заключая аргументы в круглые скобки или не делая этого.

index "В лесу родилась елочка", "елочка";

Возвращается - а хорошо жить - еще "еще");

Возвращается - это забытое старое";

"это");

I Возвращается "новое");

I Возвращается - ячмень);

index ", На), "рис";

Возвращается Можно также (хотя это и необязательно) указать при вызове функции index на чальную позицию в строке, с которой нужно начать поиск, как показано в следующем примере. Чтобы выполнить поиск с начала строки (с крайней левой позиции), ис пользуйте начальную позицию 0.

Герцен Герцеговина "Герц") Возвращается Возвращается Можно также использовать функцию index с начальной позицией, чтобы "пройти" всю строку и найти все случаи вхождения в нее подстроки, как показано в следующем примере:

Герцен Герцеговина f Чтобы найти вхождения слова "Герц", мы будем использовать переменную в качестве начальной позиции для поиска. При этом значение переменной будет все время увеличиваться print "Найдено слово Герц в } В результате выполнения данного примера будет выведено следующее:

Найдено слово Герц в 0-й Найдено слово Герц в 5-й позиции 9-й час. Дополнительные функции и операторы Найдено слово в 12-й позиции Найдено слово Герц в 24-й Функция index из предыдущего примера выполняет в цикле сканирование строки как показано ниже:

Переменной $start присваивается значение О Герц Герцен Герцеговина Функция index находит слово Герц в 0-й позиции строки, после чего это значение присваивается переменной Sstart Функция index снова запускается с 1-й позиции строки Герц Герцен Герцеговина Герцигова index находит еще одно слово Герц в 5-й позиции строки Поиск в обратном направлении с помощью функции rindex Функция rindex работает точно так же, как index, за исключением того, что поиск начинается с крайнего правого символа строки и проводится в левую сторону. Син таксис данной функции выглядит следующим образом.

rindex строка, подстрока rindex строка, подстрока, Если поиск закончен, а подстрока не найдена, то функция rindex возвращает зна чение -1. Ниже приведено несколько примеров.

"Мишка косолапый по лесу идет, шишки собирает...";

rindex($a, "ишк");

"ишк", 30);

I Возвращает По сравнению с функцией index, код для реализации обратного поиска в цикле с помощью функции rindex выглядит несколько иначе. Причина заключается в том, что функция rindex начинает поиск с правого крайнего символа строки. Поэтому в каче стве начальной позиции для поиска следует указать символ, расположенный за по следним символом строки. Для этого вполне подойдет значение, возвращаемое функ цией как показано в следующем примере. Выполнение цикла следует завершить как только функция rindex возвратит значение -1. После нахождения каж дого очередного элемента значение переменной $start должно быть уменьшено на 1, а не увеличено, как в случае использования функции index.

Герцен Герцеговина Герцигова";

!=-l){ print "Найдено слово Герц в 142 Часть II. Углубляемся в Pert Выделение части строки с помощью функции substr О функции substr часто забывают, не придавая ей особого значения, хотя она пре доставляет универсальный метод выборки информации из скаляров и их редактирова ния. Синтаксис этой функции выглядит следующим образом:

substr строка, смещение substr строка, смещение, Функция substr берет строку, начиная с позиции, указанной во втором параметре, и возвращает оставшуюся часть строки (т.е. начиная с позиции смещение и до конца).

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

символов в строке $а 0 10 20 30 40 $а="0 сколько нам открытий чудных готовит век";

print substr($a, Возвращается print substr($a, 10, 12);

# Возвращается "нам открытий" ЕСЛИ задано отрицательное значение параметра смещение, то функция substr начи нает отсчет справа. Например, substr($a, -5) возвращает пять последних символов строки $а. Если задано отрицательное значение параметра длина, то функция substr возвращает подстроку от начальной позиции и до конца строки, за исключением по следних символов, количество которых определяется параметром длина. Например:

print 30, Возвращается "готовит В предыдущем фрагменте функция substr начала работу с 30-й позиции и вернула оставшуюся часть строки за исключением последних 4-х символов.

Функцию substr можно использовать также в левой части оператора присваива ния. Такая конструкция позволяет указать, какие символы в скаляре должны быть за менены. В качестве первого аргумента функции substr следует задать скалярную пе ременную, а не строку символов, которой будет присваиваться значение. Ниже при веден пример редактирования строки с помощью функции substr, выше и выше, и выше";

первое слово "выше" на "ниже" substr($a, 4, Вставим в начало строки слово "Песня:" substr{$a, 0, 0)="Песня:";

Заменим последние 4 символа substr{$a, -4, а не подстановка Прежде чем рассмотреть оператор транслитерации (который иногда называют опе ратором давайте немного вспомним, как работает оператор, подстанов ки, о котором шла речь на 6-м занятии, "Поиск по шаблону". Оператор подстановки 9-й час. Дополнительные функции и операторы имеет вид и, если не задан оператор привязки =", выполняет поиск по шаблону и замену строки, находящейся в служебной переменной $_. Оператор транслитерации чем-то напоминает оператор подстановки, однако работает он не много иначе, поскольку в нем не используются регулярные выражения. Синтаксис этого операторы выглядит так:

/ / замены/ Оператор транслитерации tr/// выполняет поиск в строке элементов, указанных в первом списке, и заменяет их на соответствующие элементы из второго списка. По умолчанию поиск и замена выполняются в строке, находящейся в переменной $_.

Чтобы изменить это правило, необходимо воспользоваться оператором привязки как в случае использования регулярных выражений, например:

tr/ABC/XYZ/;

В переменной $_ все буквы "А" заменяются на "X", "В" на и т.д.

$r=~tr/ABC/XYZ/;

Та же операция выполняется над переменной $г Для логической группировки символов используется дефис. Например, конструк ция A-Z представляет список прописных букв от А до Z включительно. Логическая группировка позволяет избежать перечисления символов в списке, например:

Изменяет регвстр букв с верхнего на нижний tr/A-Za-z/a-zA-Z/;

Изменят регистр букв на обратный Если в операторе транслитерации второй список идентичен первому или вовсе от сутствует, то оператор tr/// выполняет только подсчет найденных символов и воз вращает данное значение. При этом исходная строка не изменяется, например:

Выполняется подсчет количества символов в переменной $potato н найденное значение присваивается переменной $eyes Выполняется подсчет количества цифр в переменной $_ и найденное значение присваивается переменной И в заключение отметим, что у оператора tr/// есть синоним — оператор у///.

Исторически так сложилось, что префиксы tr и у обозначают одну и ту же операцию.

В операторе tr/// (а значит, и в у///) можно заменить символ разделитель списков.

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

Выполнение циклического сдвига влево на символов содержимого переменной $_.

Замена некоторых символов пунктуации У оператора tr/// есть ряд дополнительных функциональных возможностей, ко торые используются сравнительно редко. Чтобы ознакомиться с ними, обрати тесь к разделу prelop справочного руководства.

Улучшение качества печати Выходные данные, которые мы до сих пор выводили на печать с помощью функции print, имели незатейливый вид. Дело в том, что функция print предназначена для выпол нения отладочной печати, поэтому в ней не предусмотрено практически никаких средств 144 Часть II. Углубляемся в Perl форматирования. Для получения качественных распечаток следует воспользоваться другой функцией Perl — В ней предусмотрен широкий набор средств управления внешним видом выводимых данных, таких как выравнивание по левому и правому краю поля, из менение количества знаков после десятичной точки, получение полей фиксированной ширины и др. Функция printf была почти полностью заимствована из языка программи рования С, однако стоит отметить, что в других языках программирования имеется ана логичная по своим функциональным возможностям функция (например, print using в BASIC). Синтаксис функции printf выглядит следующим образом:

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

Шаблон форматирования обычно задается в виде литерала (реже в виде скалярной переменной) и определяет внешний вид выводимых данных. Любые символы, указан ные в шаблоне, кроме тех, что начинаются с помещаются в неизменном виде в вы ходной поток. Символ процента обозначает начало спецификатора поля, который задает ся в виде (рис. 9.1). Параметр ширину поля в символах;

параметр опре деляет количество цифр после десятичной точки (для числовых данных) или общую до пустимую ширину поля для строк;

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

Список некоторых часто используемых спецификаторов типа поля указан в табл. 9.1.

• Маркер начала спецификатора поля знак ширина поля (обязательный) Тип поля (обязательный) Необязательное количество цифр после десятичной точки • Необязательный знак "десятичной Рис. 9.1. Формат спецификатора поля Таблица 9.1. Некоторые спецификаторы типа поля функции Спецификатор типа Тип Строка Десятичное целое;

дробная часть числа отбрасывается Число с плавающей точкой 9-й час. Дополнительные функции и операторы Полный список спецификаторов типа поля можно найти в электронном справоч руководстве Для этого введите команду perldoc -f Ниже приведено примеров использования функции printf.

слово "Джек", которое располагается в шириной 20 символов в.

выровнено по правому краю же, только выравнивание выполняется по левому краю поля Samt=7.12;

Выводит " 7.12" Выводит " число округляется 65);

соответствующий коду 65 ("А") Выводит " 9.40" $amt);

" 9" При выполнении форматирования каждый спецификатор поля заменяется соот ветствующим элементом из списка, как показано на рис. 9.2. При этом для каждого элемента в списке должен быть предусмотрен свой спецификатор поля и, наоборот, каждому спецификатору поля должен соответствовать элемент в списке.

$a $c Рис. 9.2. Порядок замены спецификаторов поля Чтобы вывести перед числом незначащие нули, нужно поместить символ 0 в спе цификатор формата, как показано ниже:

* Выводит Кроме функции printf, существует близкая по смыслу функция sprintf. Разница между ними состоит в том, что функция sprintf не выводит данные в выходной по ток, а вместо этого просто их возвращает в вызвавшую ее программу. В результате форматированную строку данных можно присвоить скалярной переменной или ис пользовать в любом другом выражении, как показано ниже на примере:

t Округлим результат до 2-х цифр после запятой print "Масса тепа на Луне составит $moonveight кг.";

При выполнении форматирования не забывайте, что функции printf и sprintf, в параметрах которых указан спецификатор поля автоматически округляют результат так, чтобы он поместился в отведенное ему поле.

Упражнение: создание отчета В этом разделе мы рассмотрим одну из задач, с которой неизбежно сталкивается лю бой человек, работающий с компьютером. Речь идет об обработке исходных данных, их форматировании и составлении отчета. Эта проблема возникла не на пустом месте. Все Часть II. Углубляемся в Perl дело в том, что компьютеры и люди оперируют данными, представленными в разных форматах. В результате без специальной обработки человеку очень трудно проанализи ровать машинные данные. Поэтому наша задача — отформатировать данные, находя щиеся в компьютере, так, чтобы с ними было удобно работать человеку.

Для выполнения этого упражнения нам понадобится набор записей о гипотетиче • ских сотрудниках некой компании, в который входит: фамилия и имя сотрудника, его табельный номер, количество отработанных им часов и почасовая тарифная ставка.

Программа должна на основе этих данных составить отчет по зарплате.

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

Итак, запустите свой любимый текстовый редактор, наберите в нем программу, приведенную в листинге и сохраните ее на диске в файле с именем Employee. Но мера строк вводить не нужно. После сохранения программы сделайте файл выпол няемым, как было описано на 1-м занятии, "Начало работы с После выполнения подготовительных операций запустите программу, набрав в ко мандной строке Employee Результаты работы программы приведены в листинге 9.2.

Листинг 9.1. Исходный текст программы Employee 1:

2:

3: use strict;

4:

5: my 6:

7:

8:

9:

10:

11: );

12:

sub { 14: my 15:

my $fullname;

17: $first, $last);

18:

19: $emp, $time, 20: * $time>+.005);

21: } 22:

23: { 24: my $a);

25: my $F2)=split(',', $b);

26: return ( $Ll $L2 \ Сравним фамилии 27: || Если они идентичны...

9-й час. Дополнительные функции и операторы $F1 Тогда имена 28:

29:

} 30: } 31:

32:

33: print );

34: > Листинг 9.2. Результат работы программы Employee Тед 6.50 39 253. 1: Стен 11.25 40 450. 2: 9.50 40 380. 3: Боб Смит 9.35 40 374. 4: Алиса Франклин 10.15 35 355. 5: ;

Проведем анализ программы.

Строка 7. В этой строке указывается путь к интерпретатору (измените его в соответствии с конфигурацией вашей системы) и ключ Всегда включайте режим вывода предупреждений!

Строка 3. Директива use strict указывает, что все переменные должны быть явно объявлены в программе с оператора и строки должны быть заключены в кавычки.

Строки 5-11. Список сотрудников вместе с исходными данными присваива ется массиву Каждый элемент массива имеет формат: фамилия и имя сотрудника, его табельный номер, величина часовой тарифной ставки и количество отработанных часов в неделю.

Строки Элементы массива сортируются сначала по фами лии сотрудника, а затем по имени.

Строка 24. Первый сортируемый элемент ($а) разбивается на части по по лям. При этом фамилия присваивается переменной а имя— $F1. Обе эти переменные описаны в блоке как приватные с помощью оператора Строка 25. Те же действия выполняются над вторым сортируемым элемен том При этом фамилия присваивается переменной $L2, а имя — $F2.

Строки 26~29. Имена сравниваются в алфавитном порядке. Синтаксис опе ратора sort был рассмотрен на 4-м занятии, "Укладка строительных блоков:

списки и массивы".

Строки В цикле выполняется перебор элементов отсортированного массива Каждый элемент передается функции Строки Функция print_emp() выполняет форматирование и печать одной строки отчета.

148 Часть II. Углубляемся в Perl • Строки Переданная функции строка находится в пере менной Она разбивается на отдельные поля, и полученные значения для удобства присваиваются переменным $last, и т.д., ко торые являются приватными для функции ().

• Строка 17. Фамилия и имя сотрудника объединяются в одну строку с по мощью функции В результате полученную строку можно будет лег ко поместить в поле фиксированной ширины и выровнять по левому краю.

• Строки 18-20. Строка отчета форматируется и выводится на печать. Для по лучения величины зарплаты количество отработанных часов (переменная нужно умножить на почасовую тарифную ставку (переменная Для выполнения правильного округления к двум значащим цифрам к произведению прибавляется значение.005.

Списки и стеки До сих пор мы рассматривали списки и массивы как линейные структуры данных, доступ к элементам которых осуществлялся с помощью индексов 9.3).

0 1 2 3 4 Персик Груша Слива Манго Гуава 9.3. Пример линейной структуры данных А теперь включите свое воображение и представьте себе этот массив элементов в виде вертикальной стопки (рис. 9.4).

В компьютерной терминологии подобная структура данных называется стеком.

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

В Perl элементы стека обычно хранятся в массиве. Для помещения элемента в вершину стека используется функция push, а для извлечения элемента из стека — функция pop. Кроме того, можно поместить элемент в нижнюю часть стека и удалить его оттуда — по аналогии с колодой карт. Для этого используются функции shift и unshift соответственно. Операции со стеком проиллюстрированы на рис. 9.5.

Синтаксис перечисленных выше функций выглядит так:

pop массив shift массив массив, push Функции pop и shift удаляют один элемент из массива. Если параметр пассив не указан, то будет удален один элемент либо из массива либо из Функции pop и shift возвращают в вызвавшую программу удаленный из массива элемент, а если массив пуст, то возвращается значение undef. При этом соответствующим образом уменьшается и размер массива.

9-й час. Дополнительные функции и операторы Push Ананас Гуава Манго Гуава Слива Манго Груша Слива Персик Груша Виноград Яблоко Яблоко Unshift Shift Рис. 9.4. Пример стека Рис. 9.5. Операции со стеком Внутри подпрограмм функции pop, shift, unshift и push модифицируют перемен ную если не указан другой массив. В теле главной программы эти функции модифицируют массив если не указан другой массив.

Функции push и unshift добавляют элементы нового_списка в массив. При этом со ответствующим увеличивается размер массива. Элементы могут быть представлены в виде списка, массива или скаляра, как показано в следующем примере.

push кларнет);

В массиве сейчас содержится три элемента:

"тромбон", "гитара", "кларнет" 8band;

I Переменная $brass равна "тромбон" $wind=pop Переменная равна "кларнет" \ В сейчас содержится один элемент unshift \ В массиве сейчас содержится два элемента:

t и "гитара" Операции добавления и удаления элементов массива с помощью функций push, pop, shift и unshift гораздо эффективнее аналогичных операций, выполненных вручную. Например, код push эффективнее, чем Перечисленные выше функции Perl специально оптими зированы для выполнения подобных операций над массивами.

150 Часть II. Углубляемся в Perl При работе со стеком не стоит забывать и о том, что его элементы ничем не отли чаются от элементов обычных массивов, которые можно адресовать с помощью дексов. При этом началу стека (или его нижней части) соответствует индекс 0, а вер шине стека — последний элемент массива.

Слияние и разделение массивов До сих пор мы ВЫПОЛНЯЛИ с массивами такие операции, как обращение к элементу по индексу, разделение массива на отдельные скаляры, а также всевозможные стеко вые манипуляции. Теперь пришла пора рассмотреть еще одну функцию — splice, с помощью которой можно выполнять как слияние, так и разделение массивов. Ее син таксис выглядит так:

splice массив, splice массив, снещевве, длвва splice массив, длина, список Функция splice удаляет из массива элементы, начиная с заданного смещения. При этом удаленные элементы возвращаются в вызывающую программу. Отрицательные значения смещения означают, что соответствующий элемент отсчитывается не с начала, а с конца массива. Если указан параметр длина, то удаляется указанное количество элементов массива. Если указан параметр список, то после удаления указанного коли чества элементов вместо них в массив помещаются элементы из списка. Во время вы полнения подобных операций размер массива соответствующим образом уменьшается или увеличивается. Вот несколько примеров:

кукуруза);

В массиве находится один splice 0, 1);

элемент: "кукуруза" splice {8veg, 0, 0, В массиве находятся два элемента: "горох", "кукуруза" splice 1, репа));

# В массиве находятся три элемента: "ячмень", В массиве находятся два splice 1);

элемента: "горох", "репа" Резюме На этом занятии вы узнали, что для выполнения поиска одной строки в другой не обязательно использовать регулярные выражения;

для этого вполне достаточно функций index и rindex. Кроме того, вы научились выполнять простые подстановки с помощью оператора tr///. Для выделения части строки, а также для редактирования строки мож но использовать функцию Для создания отчетов, форматирования текстовых строк и округления чисел предусмотрены функции printf и sprintf. И в заключение были рассмотрены нелинейная структура данных (стек) и способы работы со стеком.

Вопросы и ответы Можно ли обойтись без функций substr, index и rindex? Для чего они вообще нуж ны, если практически все можно сделать с помощью регулярных выражений?

Во-первых, использование регулярных выражений для выполнения простых видов поиска и замены строк крайне неэффективно. Функции index и rindex работают зна час. Дополнительные функции и операторы чительно быстрее. Во-вторых, создание регулярных выражений для выполнения заме ны текста с фиксированной позиции в строке — это стрельба из пушки по воробьям;

намного более элегантное решение — воспользоваться функцией substr. И, наконец, в-третьих, Perl относится к тому разряду языков программирования, где одну и ту же операцию можно выполнить разными средствами. Поэтому используйте то средство, которое вам больше нравится.

Что произойдет, если в качестве начальной позиции в функции substr (или index, или rindex) указать значение, выходящее за границы строки?

Чем мне всегда нравились компьютеры, так это их удивительной терпимостью к разного рода экспериментам. Вместо того чтобы задавать вопрос из серии "Что будет, если...?", иногда проще самому поэкспериментировать и посмотреть, что получится.

Возвращаясь к поставленному вопросу, стоит отметить, что обращение к несуще ствующей части строки приведет к появлению сообщения об ошибке use of undefined value (если включен режим выдачи предупреждений, а он у вас должен быть включен всегда!). При этом функция возвращает неопределенное значение. Например, при выполнении кода $a="Foo";

функция substr возвращает значение undef.

Семинар Контрольные вопросы 1. Какое значение будет иметь переменная после выполнения следующего фрагмента кода?

горох бобы);

shift push "ячмень";

а) овес горох бобы;

б) бобы ячмень;

в) горох бобы ячмень.

2. Что делает оператор а) выводит число с плавающей точкой, занимающее 18 позиций (15 пози ций до десятичной точки и 3 после нее);

б) выводит число с плавающей точкой, занимающее 18 позиций до деся тичной точки и 3 после нее;

в) выводит число с плавающей точкой, занимающее 18 позиций (14 пози ций до десятичной точки и 3 после нее).

3. Предположим, что к некоторой строке был применен оператор tr/a-z/A-Z/.

Восстановит ли первоначальное состояние строки оператор tr/A-Z/a-z/?

а) да;

б) скорее всего, нет.

152 Часть II. Углубляемся в Perl Ответы 1. Правильный ответ вариант в). Функция shift удаляет из массива элемент "овес", а следующая за ней функция push добавляет в конец массива эле мент "ячмень". Последняя функция фрагмента pop является уловкой. По скольку в ее параметрах не указан массив, она модифицирует переменную которая никакого отношения не имеет к массиву 2. Правильный ответ — вариант в). Если вы выбрали вариант а), то не учли тот факт, что десятичная точка занимает одну позицию в строке размером 18 символов (18=14+1+3).

3. Правильным является ответ б). Например, строка "Rosebud" в результате реколировки с помощью оператора будет иметь вид "ROSEBUD".

Применение оператора tr/A-Z/a-z/ изменит строку на "rosebud", а ведь это не то, что было вначале.

Упражнения • Перепишите программу которая рассматривалась на 4-м занятии, "Укладка строительных блоков: списки и массивы", так, чтобы в ней вместо массивов использовались скаляры. Для изменения отдельных символов в строке воспользуйтесь функцией substr.

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

9-й час. Дополнительные функции и операторы час Файлы и каталоги ДЛЯ хранения данных в любой операционной системе используются файлы. Спо соб хранения данных, выбор системы именования файлов и выполнение поиска нуж ных файлов зависит от типа конкретной системы, которая является состав ной частью любой операционной системы. Обычно операционная система позволяет хранить файлы в виде логических групп, которые называются каталогами, или папка ми. В каталогах могут находиться файлы или другие (вложенные) каталоги.

Систему вложенных каталогов часто представляют в виде древовидной структуры.

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

В компьютерах Macintosh, несмотря на некоторые терминологические разногласия (каталог верхнего уровня называется томом, а вложенные каталоги — папками), также используется данная модель файловой системы.

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

Основные темы этого занятия.

• Получение листинга каталога.

• Создание и удаление файлов.

• Создание и удаление каталогов.

• Получение информации о файле.

154 Часть II. Углубляемся в Perl Получение листинга каталога Прежде чем выполнять операции с каталогом, необходимо создать его дескриптор.

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

opendir В этом синтаксисе вместо следует указать дескриптор каталога, который вы хотите открыть, а вместо — путь к каталогу, содержимое которого нужно прочитать. Если по какой-либо причине каталог нельзя открыть (например, у вас отсутствуют права на доступ к нему, либо просто указано имя несу ществующего каталога), функция opendir возвращает значение false. При выборе имени дескриптора каталога следует руководствоваться теми же правилами, что й при выборе имени дескриптора файла (о них шла речь на 2-м занятии, "Строительные блоки Perl: числа и строки"). Всегда набирайте имя дескриптора прописными буква ми, чтобы исключить возможный конфликт имен с ключевыми словами которые появятся в будущих версиях этого языка Вот пример использова ния функции opendir:

{{ die "Ошибка при открытии каталога $!";

Во всех примерах этого занятия в качестве разделителя пути мы используем сую черту (/), как это принято в системе UNIX. Причина заключается в том, что такой стиль написания улучшает читабельность листингов (поскольку нет кон фликтов со служебным символом Perl \) и не нарушает работоспособность про грамм в системе Windows.

После открытия каталога доступ к его содержимому можно получить с помощью функции readdir:

readdir дескриптор;

В скалярном контексте функция readdir возвращает следующий по эле мент каталога или значение если достигнут конец каталога. В контексте списка функция readdir возвращает все оставшиеся элементы каталога. Имена, данной функцией, могут относиться как к файлам, так и к каталогам, а в системе UNIX — еще и к специальным файлам. Порядок их следования соответствует физиче скому расположению в каталоге. Другими словами, элементы каталога никак не сор тируются. Кроме того, функция readdir возвращает еще два специальных элемента каталога:. и.., которые соответствуют текущему и родительскому каталогам. В эле менты каталога не включается путь.

После завершения работы с каталогом его дескриптор следует закрыть с помощью функции closedir:

дескриптор', В следующем примере продемонстрирована методика чтения каталога:

|| die "Ошибка при открытии каталога /tmp: $!";

TEMPDIR;

10-й час. Файлы и каталоги Здесь все содержимое каталога помещается в массив Однако, чаще всего, из этого списка нужно исключить некоторые имена, например. и..., поскольку для пользователя в них нет особого смысла. Для этого следует воспользоваться таким опе ратором чтения каталога:

.

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

readdir TEMPDIR);

Имена файлов, возвращаемые функцией readdir, не содержат путь, который мы указывали в функции opendir при открытии каталога. Поэтому следующий пример, скорее всего, не будет работать:

'/tmp') || die "Ошибка открытии каталога /tmp: $1";

TEMPDIR) { Приведенный ниже код $file) || die "Ошибка при открытии файла $file:

} Кроме случаев, когда вы запускаете данную программу из каталога /tmp, при вы полнении оператора $file) будет возникать ошибка. Причина состоит в том, что программа читает список файлов каталога /tmp, а оператор open пытается от крыть файл в текущем каталоге. Естественно, что если текущим является не каталог /tmp и имена файлов текущего каталога и каталога /tmp не совпадают, то функция open не будет находить файлы. Для решения проблемы в операторе open следует указать полный путь к файлу. Правильный код будет выглядеть так:

'/tmp') || die "Ошибка при открытии каталога /tmp:

TEMPDIR) { А этот код уже j| die при открытии файла $file:

} closedir(TEMPDIR);

Отбор файлов заданного типа Существует еще один метод получения списка нужных файлов заданного каталога, который называется отбором файлов (globbing). Если вы хоть немного работали с ко мандной строкой DOS, то наверняка вам приходилось вводить команды наподобие dir *.txt. В данном случае команда dir выводит список всех файлов, имена которых Часть II. Углубляемся в Perl имеют расширение *.txt. В UNIX понятие расширения файла отсутствует, однако отбор нужных файлов также можно осуществить с помощью командной оболочки. Например, аналог приведенной выше команды dir в UNIX выглядит так: *.txt. В результате бу дет получен список всех файлов, имена которых оканчиваются суффиксом В Perl также предусмотрен специальный оператор glob, выполняющий описанные действия. Его синтаксис выглядит так:

glob шаблон Здесь параметр шаблон соответствует именам файлов, которые необходимо ото брать. Он может содержать путь, а также часть имени файла. Кроме того, в шаблоне может быть указано несколько специальных символов, описанных в табл. 10.1. В кон тексте списка оператор glob возвращает имена всех файлов и каталогов, имена кото рых соответствуют шаблону. В скалярном контексте при каждом вызове описываемый оператор возвращает имя следующего файла, соответствующего шаблону.

Не путайте шаблоны оператора glob с регулярными выражениями. Учтите, что это не одно и то же.

Таблица 10.1. Шаблоны оператора glob Символ Соответствует... Пример ? Одному символу Шаблон f?d соответствует именам fud, fid, fdd и т.д.

* Любому количеству символов Шаблон f*d соответствует именам fd, fdd, food, filled т.д.

[символы] Любому символу, указанному в Шаблон [ou]d соответствует именам fod списке. Данная возможность не или fud, но не fad поддерживается в {строки} Любой строке, указанной в спи- Шаблон f*.{txt,doc} соответствует име ске. Данная возможность не нам, которые начинаются на букву f и за поддерживается в MacPerl канчиваются суффиксом или Это замечание относится к приверженцам UNIX. В операторе glob реализо вана методика отбора файлов, принятая в оболочке С. Она немного отличается от методики, используемой в оболочке Bourne (или Данное замечание справедливо для всех платформ UNIX, на которых установлен независимо от того, в какой оболочке работает конечный пользователь. И хотя методики от бора файлов во многом схожи, отличия все же есть, главным образом в способе интерпретации символов шаблона * и ?. Поэтому будьте внимательны.

Ниже приведено несколько примеров отбора файлов.

Выберем все файлы из каталога my А теперь отберем текстовые файлы, в именах которых встречается 1999 год my час. Файлы и каталоги Распечатаем нумерованный список файлов { print } • Ниже приведен список основных отличий функции glob от opendir/readdir/closedir.

• Функция glob может возвращать только ограниченное количество файлов.

Если в каталоге будет находиться большое количество файлов, эта функция, скорее всего, аварийно завершит свое выполнение. Причина состоит в том, что в текущей версии функция glob реализована с помощью сценария оболочки С, который может возвращать только ограниченное количество файлов. При использовании функций opendir/readdir/closedir подобная проблема не возникает.

• Функция glob возвращает имя файла вместе с путем, который указан в шаб лоне, тогда как функции возвращают только имя файла. Например, оператор glob( к каждому возвращае мому имени файла добавляет путь • Функция glob работает медленнее, чем opendir/readdir/closedir. Причина оче видна. Perl должен запустить внешнюю программу, которая выполнит отбор и сортировку файлов, а затем получить от нее данные и интерпретировать их.

Итак, исходя из этого, какими же средствами лучше всего воспользоваться для от бора файлов? Ответ один — теми, которыми вам удобнее. Однако стоит иметь в виду, что использование opendir/readdir/closedir позволяет создать более универсальный и гибкий код. Поэтому в большинстве примеров мы используем именно набор функций opendir/readdir/closedir.

Для полноты картины стоит упомянуть еще об одном способе отбора файлов. Про сто поместите шаблон в угловые скобки (о);

в результате оператор превра тится в некое подобие оператора glob, например:

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

Упражнение: реализация утилиты UNIX Мы постарались так подобрать примеры, чтобы по мере чтения книги вы приобре тали опыт в создании полезных программ. В этом упражнении мы реализуем усечен ную версию популярной утилиты системы Unix grep. Эта утилита выполняет поиск файлов, содержимое которых соответствует заданному шаблону (не путайте ее с одно именным оператором Perl). В рассматриваемом нами примере имя каталога и шаблон для поиска файлов вводятся в диалоговом режиме по запросу программы. Затем про грамма выполняет поиск файлов по заданному шаблону и выводит их на печать.

158 II. Углубляемся в Perl Запустите текстовый редактор, наберите в нем программу, приведенную листин ге 10.1, и сохраните ее в файле забудьте сделать файл выполняемым, как это было описано на 1-м занятии, "Начало работы с Perl". Убедитесь также, что вы случайно не присвоили файлу с программой на Perl имя grep (иначе в системе UNIX будет конфликт с утилитой grep).

Завершив подготовительные действия, запустите программу с помощью следующей команды:

perl mygrep Листинг 10.1. Исходный текст программы mygrep 1:

3: use strict;

4:

5: print "Введите имя ";

6: my chomp 7: print "Введите для поиска: ";

В: my chomp $pat;

9:

10: my ($file);

11:

12: $dir) || die "Ошибка при открытии каталога $dir: $!";

13:

14: next if (-d 15: if (1 { 16: warn открытии файла $file: $!";

17: next } 19: while(){ 20: if (/$pat/J {.

21: print "$file: $_" 22: } 23: } 24: close(F);

25: } 26:.

Проведем анализ программы.

Строка 1. В этой строке указывается путь к интерпретатору (измените его в соответствии с конфигурацией вашей системы) и ключ Всегда включайте режим вывода предупреждений!

Строка 3. Директива use strict указывает, что все переменные должны быть явно объявлены в программе с помощью оператора и строки должны быть заключены в кавычки..

Строки 5-8. В диалоговом режиме вводятся значения переменных $dir (каталог для поиска) и Spat (шаблон для поиска). Символ перевода удаляется с помощью функции chomp.

10-й час. Файлы и каталоги • Строка 10. Поскольку в начале программы указан оператор use strict, то здесь объявляется которая будет использоваться ниже в программе.

• Строка 12. Открывается каталог для чтения, указанный в переменной Если во время выполнения этой операции происходит ошибка, выводится соответствующее сообшение.

• Строка 13. Элементы каталога считываются в цикле и помешаются в пере менную $Ше.

• Строка 14. Элементы каталога, которые являются вложенными каталогами (оператор -d), пропускаются. Обратите внимание, что в имени файла указан путь ($dir/$file), поскольку текущий каталог может не совпадать с катало гом $dir. Таким образом, полный путь к файлу задается в виде • Строки Открывается файл, указанный с помощью полного пути. Ес ли происходит ошибка, выводится соответствующее сообшение и обработка текущего файла прекращается.

• Строки Файл сканируется построчно в поисках текста, соответст вующего шаблону $pat. Найденные строки вместе с именем файла выводят ся на печать.

Пример работы программы приведен в листинге 10.2.

Листинг 10.2. Пример работы программы Введите имя каталога:.

Введите шаблон для поиска: perl hello:

01.pl:

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

Перемещение по каталогам При запуске какой-либо программы операционная система "запоминает" текущий каталог, в котором находился пользователь перед вводом команды. В системе UNIX после регистрации пользователь обычно попадает в свой рабочий каталог. Чтобы уз нать, в каком каталоге вы находитесь, в системе UNIX используется команда При работе в режиме командной строки MS-DOS или Windows путь к текущему каталогу отображается в виде приглашения, например Кроме того, если в сеансе MS-DOS ввести команду cd без параметров, операционная система выведет на экран путь к текущему каталогу. Таким образом, каталог, используемый по умолчанию сис темой в настоящий момент, называется текущим каталогом.

160 Часть И. Углубляемся в Perl Если вы работаете в одном из текстовых редакторов или интегрированной среде разработки и пытаетесь запустить на выполнение программу на прямо из среды разработки, то текущий каталог, установленный операционной системой для вашей программы, может не соответствовать ожидаемому. Таким каталогом может являться каталог, в котором находится программа на рабочий каталог текстового редактора или любой другой каталог (в зависимости от установленных параметров среды разработки). Чтобы определить в программе на Perl рабочий каталог, воспользуйтесь функцией Если при открытии файла не указан полный путь к нему, как, например, в опера торе "file") die, будет предпринята попытка открыть указанный файл в текущем каталоге. Для изменения текущего каталога в программах на использует ся функция chdir, как показано в следующем примере:

chdir Эта функция заменяет текущий каталог на тот, который указан в качестве пара метра. Если указано имя несуществующего каталога или у вас отсутствуют права на доступ к новому каталогу, функция chdir возвращает значение false. С помощью этой функции можно временно изменить текущий каталог. Как только программа завершит свое выполнение, в качестве текущего будет восстановлен тот каталог, в котором на ходился пользователь перед запуском программы.

Вызов функции cbdir без параметров устанавливает в качестве текущего рабочий ка талог пользователя. В системах UNIX это тот каталог, в который попадает пользователь после регистрации в системе. В Windows 9x, NT или MS-DOS рабочий каталог пользо вателя задается с помощью переменной окружения Если такая переменная не ус тановлена, вызов функции chdir без параметров не выполняет никаких действий.

В Perl нет встроенных функций, которые бы позволяли определить текущий ката лог программы. Причина заключается в том, что в силу специфики некоторых опера ционных систем сделать это достаточно сложно. Для решения задачи вам следует вос пользоваться двумя связанными операторами. Укажите в начале программы оператор use Cwd, а затем для определения текущего каталога воспользуйтесь функцией cwd, как показано ниже на примере:

use Cwd;

print каталог - ", cwd, "\n";

chdir warn "Ошибка доступа к каталогу $!";

print "Сейчас мы находимся в cwd, Оператор use Cwd необходимо указывать в программе только один раз. После этого функцию cwd можно использовать столько раз, сколько нужно.

Оператор use Cwd указывает интерпретатору что в этом месте программы дол жен быть загружен модуль Cwd. Модули расширяют возможности за счет добав ления новых функций, таких как cwd. Если в предыдущем примере с использовани ем модулей интерпретатор выдаст ошибку типа Can't locate Cwd.pm in INC или если вы так и не поняли, для чего вообще нужны модули, сильно не расстраивайтесь.

Более подробно модули будут описаны на занятии, "Использование модулей".

Создание и удаление каталогов ДЛЯ создания нового каталога в используется функция синтаксис кото рой выглядит так:

новый каталог, права доступа', 10-й час. Файлы и каталоги Если указанный каталог успешно создан, функция возвращает истинное значе ние. В противном случае она возвращает ложное значение, а текст сообщения об ошиб ке помещается в переменную $!. Параметр имеет значение только в сис темах UNIX, однако его следует указывать всегда, независимо от того, работаете вы в UNIX или нет. В приведенных ниже примерах используется некое магическое число 0755, значение которого будет объяснено ниже, вразделе "Небольшой экскурс в UNIX".

Для систем DOS и Windows просто используйте число 0755 и ни о чем не думайте! Сей час мы не будем пускаться в долгие рассуждения, а сразу рассмотрим пример:

print "Укажите имя создаваемого каталога: •;

my chomp $newdir;

0755) j| die при создании каталога $!";

Для удаления каталога используется функция синтаксис которой выглядит так:

каталог;

Если указанный каталог успешно удален, функция rmdir возвращает истинное зна чение. В противном случае она возвращает ложное значение, а текст сообщения об ошибке помещается в переменную $!, как показано в следующем примере:

print "Укажите имя удаляемого каталога: ";

my chomp $baddir;

|| die при удалении каталога $baddir:

С помощью функции rmdir можно удалить только пустые каталоги. Это означает, что перед удалением каталога в нем следует сначала удалить все файлы и вложенные каталоги.

Удаление файлов ДЛЯ удаления файлов в используется функция unlink, синтаксис которой вы глядит так:

unlink Функция unlink пытается удалить все файлы, указанные в списке, и возвращает в вызывающую программу количество удаленных файлов. Если список файлов не указан, будет удален файл, указанный в переменной $_. Рассмотрим следующие примеры:

unlink <*.bat>;

$erased=unlink 'old.exe', 'personal.txt';

unlink unlink;

Удаляется имя которого указано в переменной $_ Чтобы проверить, действительно ли были удалены все файлы из списка, нужно срав нить количество файлов в списке с тем, которое вернет функция unlink, например:

my $erased=unlink §files;

f Сравним количество файлов в списке с тем, которое было удалено if {$erased 1= { print "Эти файлы не были удалены: ", ', <*.txt>), "\n";

162 Часть II. Углубляемся в Perl В этом примере число удаленных файлов сохраняется в переменной $erased. После выполнения unlink значение переменной $erased сравнивается с количест вом элементов массива Они должны быть одинаковыми. Если это не так, вы водятся сообщение об ошибке и список тех файлов, которые не удалось удалить.

Файлы, удаленные с помощью функции unlink, восстановить уже нельзя, по скольку не помещает их в корзину. Поэтому при работе с этой функцией будьте особенно аккуратны!

Переименование и перемещение файлов Переименовать файл или каталог в Perl очень просто. Для этого используется функция rename, синтаксис которой приведен ниже:

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

if (! rename "myfile.txt", "arcfile.txt" ) { warn "Ошибка при переименования файла myfile.txt: $1";

} С помощью функции rename можно также переместить файл в другой каталог. Для этого в качестве второго параметра укажите новый путь к файлу, например:

Выполняется перемещение файла rename Если окажется, что файл, заданный во втором параметре функции rename, сущест вует, содержимое старого файла теряется.

С помощью функции rename нельзя переместить файлы из одного каталога в дру гой, если они принадлежат различным файловым системам.

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

Начнем с что имеет глубокие корни в UNIX. Более того, прототипом неко торых команд и операторов послужили аналогичные команды и вызовы операционной системы UNIX. С большинством таких функций вам никогда не придется сталкиваться.

В то же время часть из них, как, например, функция unlink, используется достаточно часто. И несмотря на то что данная функция была также позаимствована из UNIX, большинство пользователей никак не связывает ее с миром UNIX. Причина заключает 10-й час. Файлы и каталоги ся в том, что средства для удаления файлов есть в любой операционной системе, поэто му Perl делает так, чтобы функция unlink работала всегда, независимо от используемой ОС. Описанная концепция независимости от компьютерной платформы реализована в Perl практически повсеместно, в частности в функциях ввода/вывода. Интерпретатор по возможности делает так, чтобы все вопросы несовместимости были скрыты от пользова теля. Все это делает программы на Perl действительно переносимыми.

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

Как следует из названия следующего раздела, приведенное на страницах этой книги описание прав доступа к файлам системы UNIX и способов их назначения ни в коей мере нельзя считать полным. Чтобы получить исчерпывающую информацию по инте ресующим вас вопросам, обратитесь к документации по операционной системе или найдите одну из книг UNIX, выпущенных Издательским домом За справками обращайтесь по адресу http://vwv.williamspublishing.com.

Немного о правах доступа к файлам На 1-м занятии, "Начало работы с Perl", без всяких дальнейших объяснений гово рилось, что, для того чтобы в UNIX запускать программу на как обычную коман ду, к файлу, в котором находится эта программа, необходимо применить команду 755 Магическое число 755 — это как раз и есть закодированные права доступа, которые назначаются указанному файлу. Таким образом, в системе UNIX для назначения и изменения прав доступа к файлам используется команда Каждая из трех цифр представляет собой код прав доступа, которые назначаются владельцу этого файла, пользователям группы, к которой относится файл, и всем ос тальным пользователям компьютера (рис. В нашем случае для владельца код прав доступа составляет 7, для группы — 5, а для всех остальных — 5. Коды прав дос тупа перечислены в табл. 10,2.

Права Права Права всех владельца группы остальных Рис, Кодирование прав доступа к файлу Таблица 10.2. Коды прав доступа к файлам Код Описание 7 Владелец/пользователи группы/остальные пользователи могут читать информа цию из файла, изменять этот файл и запускать на выполнение 6 Владелец/пользователи группы/остальные пользователи могут читать информа цию из файла и изменять файл 5 группы/остальные пользователи могут читать информа цию из файла и запускать его на выполнение (RX) 4 группы/остальные пользователи могут читать информа цию из файла (R) 164 Часть II. Углубляемся в Perl Окончание табл. 10. Код Описание 3 группы/остальные пользователи могут записывать ин формацию в файл и запускать его на выполнение 2 группы/остальные пользователи могут записывать ин формацию в файл 1 группы/остальные пользователи могут запускать файл на выполнение Для установки прав доступа к файлу в используется встроенная функция синтаксис которой выглядит так:

Данная функция пытается изменить права доступа ко всем файлам, указанным в списке, и возвращает число файлов, для которых эта операция успешно выполнена.

При указании кода прав_доступа не забудьте только поставить перед числом иифру О, поскольку права доступа задаются в виде восьмеричного литерала. Ниже приведено несколько примеров использования функции chmod.

chmod 'file.pl' Назначает права RWX для владельца и RX для группы в всех остальных пользователей Назначает права для владельца и chmod 0644, R для группы в всех остальных пользователей chmod 0777, 'script.pl' Назначает права для всех пользователей (не очень грамотное chmod 0000, Запрещает доступ к файлу со стороны любого пользователя Выше на этом занятии мы рассматривали функцию При описании второго аргу мента этой функции мы говорили, что он задает права доступа к каталогу (наподобие того, как функция задает права доступа к файлу). Вот несколько примеров:

0777 Создается каталог, полностью открытый для всех пользователей 0700 Создается каталог, открытый только для его владельца Права доступа к файлам в часто называют режимом доступа (mode). По этому название команды расшифровывается как change mode (изменить режим доступа).

Получение информации о файле ДЛЯ получения подробной информации о файле в Perl используется функция stat.

Поскольку прототип этой функции взят из UNIX, а структура файловой системы UNIX отличается от принятой в других ОС, возвращаемые функцией stat данные за висят от конкретной операционной системы. Синтаксис функции stat выглядит так:

stat stat имя файла;

час. Файлы и каталоги Таким образом, функция stat позволяет получать информацию как по дескрипто ру файла (если файл уже был открыт), так и по имени файла. В любой операционной системе функция stat возвращает список, состоящий из элементов, которые опи сывают атрибуты файла. Сами значения элементов этого списка зависят от типа опе рационной системы, в которой используется интерпретатор Perl. Причина заключает ся в том, что файловые системы некоторых операционных систем могут не поддержи вать те или иные атрибуты. В табл. 10.3 описаны возвращаемые функцией stat эле менты списка для двух популярных операционных систем: UNIX и Windows.

Таблица 10.3. Описание возвращаемых stat значении Номер элемента Название UNIX Windows dev Номер устройства Номер диска (обычно 2 — это диск 3 — и т.д.) Число индексных деск- Всегда нуль рипторов mode Режим доступа к файлу Не определено 3 Число ссылок (links) на Обычно 0, хотя в системе файл NTFS допускается наличие ссылок на файл Идентификатор владель Всегда нуль ца файла (user id) gid Идентификатор группы Всегда нуль (group id) б rdev Специальная информа Номер диска (повторно) ция о файле 7 size Размер файла в байтах Размер файла в байтах 8 Время последнего обра Время последнего обра щения к файлу щения к файлу 9 Время последней моди Время модифи фикации файла кации файла 10 Время последней моди- Время создания файла фикации индексного де скриптора 11 Размер блока на диске Всегда нуль 12 blocks Количество блоков, вы- Всегда нуль деленных для файла Большинство элементов, описанных в табл. 10.3, вы никогда не будете использо вать, однако они приведены для полноты изложения. Чтобы получить более подроб ную информацию об остальных элементах (особенно относящихся к системе UNIX), обратитесь к руководству по операционной системе.

Вот пример использования функции stat:

Обычно возвращаемые функцией stat значения присваивают списку скаляров, ко торым назначены осмысленные имена, например:

($dev, $ino, $mode, $uid, $rdev, $size, $blksize, Часть II. Углубляемся в Perl А теперь давайте распечатаем код прав доступа к файлу в виде восьмеричного чис ла, о котором шла речь выше, в разделе "Немного о правах доступа к файлам":

В фрагменте кода некоторые элементы вам могут показаться новыми. Ничего удивительного, о них мы до сих пор еще не упоминали. В информации о правах дос тупа, возвращаемой функцией stat (и в данном примере помещаемой в переменную содержатся "лишние" данные. Поэтому используется конструкция кото рая отбрасывает "лишнюю" информацию и оставляет только то, что нам нужно. Дан ная операция называется маскированием данных, или наложением маски, а число называется И, наконец, шаблон в функции printf задает восьмеричный формат представления чисел (используются только цифры от 0 до 7), в котором при нято в системе UNIX отображать коды прав доступа. Цифра 4 в шаблоне задает ши рину поля, а 0 перед ней говорит о том, что к трем восьмеричным числам будет до бавлен незначащий нуль.

В восьмеричном формате числа представляются точно так же, как и в десятич ном, но по основанию 8. При этом значение каждого разряда восьмеричного чис ла может быть в пределах от 0 до 7. При прибавлении к 7 единицы возникает пе реполнение. При этом младший разряд сбрасывается в нуль, а к старшему при бавляется единица. Использование восьмеричного формата представления чи сел в UNIX, главным образом, дань традиции, которая перешла и в Perl. Если вы окончательно сбиты с толку, не паникуйте. Просто используйте приведенный вы ше шаблон функции printf для отображения кодов прав доступа к файлам и ни о чем не думайте. Восьмеричная система счисления используется не так часто, поэтому не нагружайте себя лишней информацией.

В табл. 10.3 упоминается о трех моментах времени, связанных с файлом. Речь идет о времени доступа к файлу, времени модификации и времени изменения индекс ного дескриптора (или создания файла). Здесь под моментом времени следует пони мать точную дату и время выполнения операции, которая хранится в довольно не обычном формате. В Perl отсчет времени производится в секундах, прошедших с 0 ча сов по Гринвичу 1 января 1970 года. Поэтому, чтобы вывести дату и время в привыч ном нам формате, следует воспользоваться функцией как показано ниже на примере:

print scalar Этот оператор выводит дату модификации файла в формате, подобном May 14:44:55 2000. Время доступа к файлу (поле — это момент времени, когда файл был последний раз открыт для чтения или записи, а время модификации (поле — когда содержимое файла было последний раз изменено. В системе UNIX в поле $ctime отмечаются моменты времени, когда изменяется индексный дескриптор файла. А это происходит при изменении владельца файла, прав доступа к нему, числа ссылок на файл и т.д. Таким образом, не стоит полагаться на то, что в данном поле будет находиться время создания файла, хотя в случаев так оно и есть. В системе Windows в поле находится время создания файла.

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

print "Размер файла: [7], байтов";

10-й час. Файлы и каталоги Упражнение: переименование группы файлов ВЫПОЛНИВ данное упражнение, вы создадите еще один полезный инструмент, ко торый облегчит вашу дальнейшую работу. Эта небольшая программа позволяет вы полнить переименование группы файлов по заданному шаблону, находящихся в ука занном каталоге. Предположим, что в каталоге находятся файлы и т.д., которые мы хотим переименовать в Hour 02.rtf, и т.д. Выполнить эту задачу средствами командной оболочки дело не из легких, не говоря уже о графических файловых оболочках наподобие про граммы Проводник в Windows.

С помощью текстового редактора введите программу, исходный код которой при веден в листинге и сохраните ее в файле Сделайте файл выполняемым, как это было описано на 1-м занятии, "Начало работы с Perl".

Завершив подготовительные действия, запустите программу с помощью следующей команды:

perl Renamer В листинге приведен пример диалога с программой.

Листинг 10.3. Исходный текст программы Renamer 1:

2:

3: use strict;

4:

5: my($dir, $oldpat, 6: print "Укажете каталог: ";

8: print шаблон для поиска файлов: ";

10: print "Введете шаблон для переииеноваввя файлов: ";

11:

12:

13: $dir) || die "Ошибка при открытии каталога $dir: $!";

14: my 15:

16: my 17:

18:

19:

20: next if {-e 21: if rename "$dir/$_") { 22: warn "Ошибка при переименовании файла $oldname в 23: } else { 24: print "Файл $oldname переименовав в $_\п";

25: > 26: } 163 Часть II. Углубляемся в Проведем анализ программы.

• Строки 13-15. Все элементы каталога $dir помешаются в массив • Строки Выполняется цикл по всем элементам массива Оче редной элемент массива помешается в переменную $_, а затем присваивает ся переменной Затем в строке 19 исходное имя файла заменяется в переменной на новое.

• Строка 20. Перед переименованием необходимо убедиться, что файла с та ким именем нет в каталоге. В противном случае после переименования пер воначальный файл будет утерян.

• Строки Выполняется переименование файла. Если по какой-либо причине эта операция не может быть выполнена, выводится соответствую щее сообщение. Обратите внимание, что перед именами файлов необходимо указать каталог, например $dir/$oldname. Причина заключается в том, что в массиве и переменной находятся только имена файлов без пути.

Листинг Результат работы программы Укажите каталог:

Введите шаблон для поиска файлов: Chapter Введите шаблон для переименования файлов: Hour Файл Chapter_4.rtf переименовав в Hour 4.rtf Файл переименован в Файл Chapter переименован в Резюме На этом занятии речь шла о создании, удалении и переименовании каталогов с помощью функций rakdir, и rename. Кроме того, вы узнали, как получить дополнительную информацию о файле (размер, время последнего обращения и др.) с помощью функции stat. В качестве примеров на этом занятии были созданы две простые, но очень полезные программы, которые позволяют автоматизировать ру тинную работу.

Вопросы и ответы Почему приведенный ниже фрагмент программы не работает? Несмотря на то что в каталоге есть файлы, содержимое каталога не читается.

|| die;

Проблема заключается во второй строке кода. Переменная DIRHANDLE является де скриптором каталога, а не файла! Содержимое каталога нельзя читать с помощью уг лового (о). Чтобы исправить ошибку, замените вторую строку на DIRHANDLE.

10-й час. Файлы и каталоги Почему функция возвращает не все находящиеся в каталоге?

Потому что шаблон *.* соответствует только тем файлам, в имени которых содер жится точка. Чтобы получить список всех файлов каталога, используйте Функция glob и ее шаблоны реализованы в Perl так, чтобы обеспечить пе реносимость программ между разными компьютерными платформами. Поэтому шаб лон *. не соответствует его аналогу в MS-DOS.

Для выполнения поиска файлов во вложенных каталогах в программу пудгер была до бавлена функция opendir и несколько модифицирован основной цикл. Однако в програм ме появились какие-то ошибки.

Если честно — вам не нужно с нуля писать такую программу. Задача обхода дерева каталогов уже давным-давно решена. И хотя она не из легких, существует множество ее решений. Поэтому незачем изобретать велосипед. Если же вы хотите просто по практиковаться, обратитесь к материалу 15-го занятия, "Обработка данных в Perl". На нем рассмотрен модуль облегчающий решение описанной задачи и, что более важно, ее последующую отладку.

Почему программа, описанная в листинге 10.3, выдает сообщение об ошибке при по пытке переименования файлов *.bat в Дело в том, что в качестве шаблона для поиска файлов нельзя использовать конст рукцию *.bat, поскольку она не является корректным регулярным выражением. Звез дочка должна обязательно следовать после какого-нибудь символа шаблона, ведь она обозначает факт повтора предыдущего Если же ввести конструкцию \*\.bat, сообщение об ошибке исчезнет, но программа все равно работать не будет, поскольку вряд ли в вашем каталоге будет находиться файл, начинающийся с "*.bat". И вообще файлы, имена которых начинаются со звездочки, — скорее исключение, чем правило.

Для решения проблемы либо введите корректный шаблон, либо измените программы следующим образом:

В результате будет запрещено использование специальных символов в регулярных выражениях, и они будут восприниматься как обычные литералы.

Семинар Контрольные вопросы 1. Какой оператор используется для вывода времени последнего изменения файла print glob("foofile");

б) print в) print scalar (stat{"foofile"))[9].

2. Что возвращает функция unlink?

а) число удаленных файлов;

б) истинное или ложное значение в зависимости от результата выполнения;

в) число файлов, которые должны были быть удалены.

170 Часть II. Углубляемся в Perl Ответы 1. Правильный ответ — вариант б) или в). В первом случае время модифика ции файла будет выведено в секундах, прошедших с 0 часов 1 января года, что мало информативно. Во втором случае дата и время будут выведе ны в удобном для пользователя формате.

2. Правильным является вариант а), хотя вариант б) с некоторой натяжкой можно также назвать правильным. Если функция unlink не сможет удалить ни одного файла, она возвратит 0, что соответствует ложному значению.

Упражнения • Попытайтесь в качестве упражнения только.) написать программу, кото рая бы выводила список файлов текущего и всех вложенных каталогов.

10-й час. Файлы и каталоги час Взаимодействие с операционной системой До сих пор при изучении Perl мы не выходили за рамки этого языка, так как в нем были предусмотрены все необходимые средства: сортировка данных, получение спи ска файлов каталога, обработка файлов конфигурации и др. Однако довольно часто возникают задачи, для решения которых требуется привлечение внешних программ.

Здесь нет ничего удивительного, поскольку нельзя объять необъятное и предусмотреть средства на все случаи жизни.

Про часто говорят, что он является великолепным интегрирующим языком (glue language). А это означает, что в программах на Perl можно воспользоваться другими приложениями, которые являются компонентами операционной системы, объединить их вместе и создать на их основе другое (более функииональное) приложение. С по мощью можно запустить любую утилиту операционной системы, передать ей данные, получить результат их обработки, а затем завершить ее работу.

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

Программист получает возможность использовать удобные ему средства разработки, что в конечном счете повышает скорость и качество разработки. Таким образом, ин теграция системных утилит сулит значительные преимущества.

Основные темы этого занятия.

• Использование функции • Перенаправление выходного потока.

• Проблема переносимости программ.

Большинство примеров данного занятия состоит из двух частей. Одна часть предназначена для выполнения в среде Windows и DOS, а другая — в среде UNIX. Если же будет приведен только один пример, то мы обязательно укажем, какие изменения (обычно небольшие) нужно внести в программу, чтобы она ра ботала в той или иной системе.

Часть П. Углубляемся в Per!

() Простейший способ запустить команду операционной системы из Pert — восполь зоваться функцией Эта функция приостанавливает текущую программу на выполняет внешнюю программу, после чего возобновляет выполнение програм мы на Perl. Синтаксис функции system{) выглядит так:

system команда;

Здесь вместо параметра команда нужно указать имя программы, которую необходи мо выполнить. Если внешняя программа завершилась успешно, функция возвращает код 0. Если же в процессе выполнения внешней программы произошло что-либо непредвиденное, возвращается ненулевой код возврата. Обратите внимание, что эти значения согласуются с точностью "до наоборот" со значениями true и false, принятыми в А теперь рассмотрим пример функции system() для UNIX.

Вывести содержимое каталога Распечатаем документацию на функцию system if ( -f system") ) { print "Документация Perl не } А вот как будет выглядеть тот же самый пример для системы Windows:

Вывести содержимое каталога Распечатаем документацию на функцию system if ( -f system") ) { print "Документация к Perl не } Как видите, функция system!) работает одинаково в обеих системах. Однако не стоит забывать, что рассматриваемые нами операционные системы имеют совершенно разный набор команд. Так, для получения содержимого каталога в системе DOS ис пользуется команда dir, а в UNIX — В то же время команда не зависит от типа операционной системы и работает совершенно одинаково как в DOS, так UNIX. Но такое случается довольно редко.

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

При запуске внешней программы она наследует стандартные потоки ввода и вывода STDIN и вызвавшей ее программы на Perl. Таким образом, операции вво да/вывода для внешней программы будут выполняться над теми же источниками дан ных. Таким образом, с помощью функции можно без проблем вызывать внешние интерактивные программы.

Рассмотрим пример для системы UNIX.

$file="myfile.txt";

system{"vi Для систем Windows и DOS этот пример будет выглядеть так:

$file");

Взаимодействие с операционной системой В каждом из представленных фрагментов выполняется запуск текстового редак тора для внесения изменений в файл myfile.txt. Для системы UNIX таким редакто ром является vi, а для DOS — edit. Текстовый редактор будет выполняться в пол ноэкранном режиме и, естественно, все его внутренние клавиатурные команды бу дут работать как обычно. По завершении работы с редактором управление возвра щается программе на system() можно использовать для запуска любых программ, а не только консольных приложений (которые работают в текстовом режиме) операционной сис темы. Например, в системе UNIX для запуска приложения, отображающего часы в графическом режиме, используется следующий оператор -update 1");

Чтобы запустить редактор Notepad в Windows, воспользуйтесь следующим операто ром myfile.txt");

Использование средств командной оболочки Функция как и большинство других функций, рассмотренных на данном занятии, позволяет воспользоваться всеми преимуществами командной оболочки опе рационной системы, в которой вы работаете. Так происходит потому, что перед вызо вом внешней программы функция system() запускает копию командной оболочки (в UNIX это а в Windows и DOS — которая и выполняет эту про грамму. Как следствие, при вызове внешней команды вы можете перенаправлять по токи ввода/вывода (>), выполнять конвейерную обработку (|), запускать задания в фоновом режиме в системе UNIX а также пользоваться любыми доступными средствами оболочки.

Например, чтобы запустить внешнюю программу и перенаправить ее вывод в файл, используется следующий оператор Perl:

> faqfile.txt");

Эта функция передает системной оболочке команду perldoc perlfaqS и перенаправ ляет стандартный выходной поток в файл faqfile.txt. Заметьте, что синтаксис дан ного оператора одинаков как для UNIX, так и для DOS.

Как и следовало ожидать, некоторые возможности, такие как перевод задачи в фо новый режим, использование регулярных выражений и др., работают только в системе UNIX, поскольку в командной оболочке DOS и Windows они не поддерживаются. Вот пример:

Отсортируем файл, имя которого задано в переменной $f, i я распечатаем результат system{"sort $f | В некоторых системах для печати • используется команда 1рг I Запустим программу в фоновом режиме system("xterm В последнем примере после запуска программы управление будет сразу же передано программе на Perl, поскольку символ амперсанда расположенный после имени команды, предписывает оболочке запустить программу xterm в фоновом режиме.

При этом интерпретатор не будет ожидать завершения ее работы.

174 Часть II. Углубляемся в В системе UNIX для запуска внешних программ с помощью функции вы полнения конвейерной обработки и подстановок команд (об этом речь пойдет чуть ниже) интерпретатор использует оболочку /bin/sh или ее аналог. Причем этот процесс не зависит от типа оболочки, в которой работает пользователь. Так сдела но для того, чтобы обеспечить максимальную переносимость программ на разные платформы UNIX.

Некоторые из рассмотренных в данной главе примеров с использованием функции не будут работать на компьютерах Macintosh. Особенно это относится к подстановкам команд и конвейерной обработке. За дополнительной информацией обратитесь к разделу Macintosh Features справочной системы Перенаправление выходного потока Несмотря на все преимущества, у функции есть также один существенный недостаток. Она не позволяет перенаправить выходной поток программы на дальней шую обработку интерпретатору Perl. Чтобы устранить описанный недостаток, можно воспользоваться обходным маневром, как показано ниже на примере.

I Учтите, что команды и используются здесь только для В большинстве случаев намного эффективнее будут работать функции opendir/readdir/closedir > outfile");

В UNIX вместо 'dir' используйте команду "outfile"} || die при открытии файла outfile: $1";

В этом примере выходные данные команды dir (или перенаправляются ко мандной оболочкой в файл outfile. Затем этот файл открывается и его содержимое помещается в массив Таким образом, в этом массиве будут содержаться данные, полученные от команды dir.

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

8 UNIX вместо используйте команду В этом примере данные, полученные в результате выполнения команды dir, по мещаются в переменную $directory.

Как и в функции внутри обратных кавычек можно пользоваться всеми доступными средствами командной оболочки: символ > вызывает перенаправление выходного потока, символ | выполняет конвейерную обработку и (в системе UNIX) символ s позволяет запустить программу в фоновом режиме. Только не забудьте, что при перенаправлении выходного потока программы или ее запуске в фоновом режиме в программу на Perl не возвращаются никакие данные.

В скалярном контексте оператор подстановки команд возвращает выходные дан ные программы в виде текстовой строки. Если в данных содержится несколько строк текста, они разделяются в строке специальным символом — разделителем за Взаимодействие с операционной системой писей. В контексте списка выходные данные программы построчно присваиваются переменным списка. При этом в конце каждой строки помещается разделитель за писей. Вот пример:

В UNIX вместо 'dir' используйте команду { Обработка каждой строки в отдельности } Здесь в цикле foreach обрабатывается каждая строка, находящаяся в массиве В существует альтернативная форма записи оператора подстановки команд.

Вместо обратных кавычек можно использовать оператор qx{>. Команду, которую нуж но выполнить, следует поместить в фигурные скобки, как показано ниже:

perl};

Оператор qx позволяет повысить читабельность программы, если при записи внешней команды внутрь обратных кавычек следует поместить служебные символы, такие как прямые и обратные кавычки, косую черту и др. (Напомним, что перед слу жебными символами следует поставить обратную косую черту.) Вот пример.

Выглядит не очень понятно А теперь перепишем этот оператор так:

sort -1 'conf # Намного яснее Вместо фигурных скобок можно использовать произвольные символы, а также лю бые парные символы, такие как о, () и [ ].

Как избежать обращения к командной оболочке В некоторых случаях бывает трудно определить границы области действия интер претатора и командной оболочки. Давайте рассмотрим два примера.

Для UNIX:

* Или то же самое для DOS и Windows:

dir Как определить, к чему в первом примере относится переменная Является ли она переменной или переменной окружения командной оболочки? А во втором примере? Является ли конструкция переменной окружения ко мандного интерпретатора или это хэш языка за которым помещен знак процента?

Хуже всего то, что переменная интерпретируется Perl. А это означает, что она является скаляром а не переменной окружения командной оболочки, как вы, вероятно, предполагали. Таким образом, внутри обратных кавычек переменные заме няются их значениями, точно так же, как это происходит и внутри двойных кавычек (" ")• Однако данное правило не относится к хэшу — только к массивам и скалярам.

Таким образом, во втором примере конструкция относится к переменной ок ружения командного интерпретатора 176 Часть II. Углубляемся в Perl Чтобы избежать интерпретации переменных внутри обратных кавычек, поместите перед ними символ обратной косой черты, как показано в следующем примере:

Символ 'V прикрывает переменную $НОМЕ А вот пример для DOS и Windows:

В этих примерах используется значение переменной окружения в UNIX и windir в DOS.

При использовании альтернативной формы записи оператора подстановки команд в конструкции qx{} следует заменить как показано в следую щем примере:

';

Или для Windows и DOS:

';

Конструкция qx'' распознается интерпретатором Perl и обрабатывается особым обра зом: внутри одинарных кавычек не выполняется замена переменных на их значение.

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

Конвейерная обработка Конвейерная обработка используется в системах UNIX и для пере дачи данных между процессами. Она позволяет связать выходной поток одного про цесса с входным потоком другого. Давайте рассмотрим следующий набор команд DOS, который с небольшими изменениями (команду dir нужно заменить на будет работать и в UNIX:

dir > sort outfile > newfile more newfile Здесь выходные данные команды dir перенаправляются в файл outfile. Затем содер жимое этого файла сортируется с помощью команды sort и записывается в новый файл И, наконец, содержимое файла newfile поэкранно выводится на терминал.

Конвейерная обработка позволяет выполнить те же самые действия, но без при влечения дополнительных временных файлов и dir | sort j В этом примере выходные данные команды dir подаются на вход команды sort, которая выполняет их сортировку. Затем отсортированные данные подаются на вход команды more для поэкранного отображения. При этом не требуется перенаправлять выходной поток (>) временный файл, поскольку операционная система сделает все сама!

Выше был приведен пример конвейерной обработки данных, признаком которой служит вертикальная черта. Конвейеры активно используются в системе UNIX для обмена данными между многочисленными утилитами операционной системы. В DOS и Windows конвейерная обработка также поддерживается, но используется сравни тельно редко и постепенно переходит в небытие по мере вытеснения текстовых ути лит программами с графическим пользовательским интерфейсом.

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

dir /В | sort j perl Totaler j more В этом конвейере программа Totaler написана на (листинг 11.1). Она выпол няет подсчет количества файлов в каталоге и их суммарный размер. В системе UNIX замените команду dir /В на -1.

Листинг 11.1. Исходный текст программы Totaler 1:

2:

3: use strict;

5:

6:

8: $total++;

9: if (-d $_) { 10:

11: print "$_\n";

12: next;

13: } 15: print 16: } 17: print "Всего файлов - каталогов - $dirs\n";

18: print размер файлов - ", Проведем анализ программы.

Строка 6. В цикле выполняется чтение строк из стандартного входного потока. При этом каждая строка присваивается переменной $_. При пото ковой обработке дескриптору STDIN текущей программы соответствует де скриптор предыдущей. Таким образом, в нашем примере из деск риптора STDIN данные, полученные в результате выполнения команды dir /В.

Строки Если встретился каталог, увеличим счетчик каталогов, нахо дящийся в переменной Sdirs. При этом имя каталога распечатывается и цикл повторятся снова.

Строки В противном случае размер файла прибавляется к содержи мому переменной $sizes и имя файла распечатывается.

Строки Накопленные статистические данные (количество файлов, каталогов и общий размер файлов) выводятся на печать.

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

t В системе замените команду 'dir /В' -1' "dir /в| sort |"J die "Ошибка при открытие конвейера для чтения: $!";

В этом примере функция open открывает конвейер для чтения данных, полученных в результате выполнения цепочки команд dir /В | sort. Вертикальная черта, расположенная в цепочке команд крайней справа, говорит о том, что конвейер открывается для чтения.

При выполнении функции open Perl запускает цепочку команд dir /В | sort и помещает полученные от команды sort данные во временный файл. Поэтому при чтении дескрипто ра RHANDLE эти данные попадут в программу на для дальнейшей обработки.

А теперь рассмотрим еще один пример:

"| more") || die "Ошибка при открытии конвейера для записи: $!";

В этом случае функция open открывает конвейер для записи данных, которые по даются на вход команды more. Вертикальная черта, расположенная в цепочке команд крайней слева, говорит о том, что конвейер открывается для записи. Таким образом, все данные, выведенные в дескриптор WHANDLE, будут переданы в буфер программы more для поэкранного отображения. Кстати, вот вам один из способов, как можно за ставить программу отображать данные постранично.

После того как будут закончены все операции чтения/записи с дескрипторами на подобие RHANDLE и WHANDLE, нужно обязательно закрыть эти и соответст вующие им конвейеры. Тогда сможет корректно завершиться программа, запушенная функцией open. Если же после окончания работы с конвейером оставить дескриптор открытым, то внешняя программа останется в подвешенном состоянии после того, как программа на Perl завершит свою работу.

При закрытии конвейера с помощью функции close по коду возврата можно су дить о том, как была выполнена конвейерная обработка. Поэтому всегда проверяйте, успешно или нет был закрыт конвейер, как показано ниже:

|} warn "Ошибка закрытии конвейера:

При изучении материала этого раздела у вас мог возникнуть вопрос;

"Почему во время открытия конвейера с помощью функции open коду возврата нельзя су дить о том, успешно или нет была выполнена обработка Все дело в ар хитектуре системы UNIX. После того как интерпретатор создал конвейер и выдал команду на его запуск, операционная система не обязательно сразу его запустит на выполнение. Поэтому остается надеяться, что если конвейер создан правильно и успешно запущен, то он корректно и завершит свою работу. После того как последняя программа в цепочке закончит свою работу, она должна вер нуть соответствующий код возврата. Функция close считывает этот код, анализи рует его, принимает решение о том, успешно или нет была выполнена обработка данных, и возвращает соответствующий код возврата.

Общие сведения о переносимости программ Переносимость — это одно из основных преимуществ благодаря которому он и завоевал столь широкую популярность- Интерпретатор Perl гарантирует, что программа практически без изменений будет работать одинаково на любой из поддерживаемых 11-й Взаимодействие с операционной системой компьютерных (VMS, UNIX, Macintosh или DOS). Если в программе исполь зуются средства взаимодействия с операционной системой, такие как операции вво да/вывода, интерпретатор пытается самостоятельно выполнить всю черновую работу и скрыть от программиста детали, обеспечивая при этом работоспособность кода. Одна ко в некоторых редких случаях требуется вмешательство программиста.

На 16-м занятии, "Сообщество РегГ, мы обсудим более подробно причины столь высокой переносимости программ на Perl.

На этом занятии мы уже не раз отмечали, что некоторые участки программ будут работать только в Windows и DOS, а другие — только в UNIX. Поэтому при написа нии программы вы должны учитывать тип операционной системы, на которой ее предполагается запускать. Это типичный пример машинно-зависимого программирова ния. При таком подходе требуется создать отдельные версии программ для каждой из операционных систем, например для Windows и UNIX. Наличие нескольких версий программы создает проблемы при разработке версии программы для третьей операци онной системы, например MacOS 9.

сказанное выше вовсе не означает, что профаммы на написанные для одной компьютерной платформы, например Windows NT, не будут работать на дру гой, например UNIX. Более того, чаще всего именно так и происходит — профам мист работает в одной системе, а пользователи профаммы в другой. У некоторых пользователей даже складывается такое впечатление, поскольку интерпретатор Perl создан для большинства современных компьютерных платформ, выполнение программы в среде Windows NT ничем не отличается от среды UNIX. Переносимые профаммы имеет смысл создавать только в том случае, если они предназначены для работы на различных компьютерных платформах, как, например, Web-серверы и вспомогательные профаммы для них.

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

• Всегда включайте режим выдачи предупреждений и используйте директиву use strict. Это позволит гарантировать, что ваш код будет корректно вы полняться различными интерпретаторами Perl и что в профамме не будет фубых ошибок, о которых может предупредить компилятор.

• Всегда проверяйте коды возврата после вызова системных функций. Напри мер, при открытии файла используйте конструкцию open die. Никогда не используйте оператор open сам по себе. Проверка кодов возврата позволяет выявить ошибки при переносе профамм с одного сервера на а не только от одной платформы на другую.

• Выводите краткие, но понятные сообщения об ошибках.

• По возможности отдавайте приоритет встроенным функциям перед функ цией system и помещением вызова внешней профаммы в обратные кавычки.

• Создавайте для всех системно зависимых операций (ввод/вывод, управление процессами и др.) соответствующие функции на Perl, которые будут роль оболочки. Не забудьте также проверить, что используемые вами средст ва реализованы в текущей операционной системе.

Часть II. Углубляемся в Perl С первыми двумя рекомендациями вы уже должны быть хорошо знакомы. Во всех примерах этой книги анализируется код возврата после выполнения критичных функций, а начиная с 8-го занятия, "Функции", во всех больших примерах использу ется директива use strict и режим выдачи предупреждений.

С третьей рекомендацией о выводе понятных сообщений об ошибках трудно не согласиться. В самом деле, что может быть понятнее сообщений, приведенных ниже?

message, or wrong output) Died at line 15.

Cannot open Foofile.txt: No such file directory Cannot Foofile.txt: No such file or directory at myscript.pl line Очевидно, что последняя строка наиболее информативна. И даже если с момента написания программы пройдет достаточно много времени, вы всегда сможете опреде лить место в программе (файл строка 24), где произошла ошибка, и при чину (не найден файл Foofile.txt) сбоя. Такая подробная информация поможет быст ро устранить проблему. При написании программы не жалейте нескольких минут времени на создание хороших, информативных сообщений об ошибке. В будущем оно окупится сторицей.

Четвертая рекомендация означает, что везде, где только возможно, нужно исполь зовать встроенные средства Например, для получения списка файлов каталога проще всего воспользоваться оператором наподобие Однако он не будет работать на платформах, отличных от Windows. Поэтому лучше воспользоваться кон струкцией <*> либо набором • функций opendir/readdir/closedir (что предпочтитель нее). При таком подходе ваша программа будет работать на любой платформе.

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

При написании программ на Perl не стоит забывать, что рано или поздно настанет момент, когда их придется запускать в другой операционной системе или на компью тере другого типа. А вдруг вы создадите нечто наподобие Web-сервера и ваш IBM PC не будет справляться с нахлынувшим потоком посетителей? Тогда вам придется перенести свой сервер на более мощный компьютер под управлением Win dows NT или UNIX, или даже поместить его в кластер, состоящий из 10000 серверов UNIX на базе Sun Enterprise. Или другой более реалистичный пример. Предположим, что вы пользуетесь некоторым CGI-сценарием и решили поменять Web-провайдера, поскольку новый провайдер предоставляет более широкий набор услуг. Подобная си туация случается сплошь и рядом и не требует особых комментариев.

Итак, как же программа сможет определить, на какой платформе она выполняется, и учесть отличия между Windows и UNIX? Все очень просто. В предусмотрена специальная переменная (знак доллара, за которым следуют символ вставки и прописная буква О), содержащая имя архитектуры компьютерной платформы, на ко торой выполняется программа. Например, в среде Windows и DOS ей присвоена стро ка В UNIX с помощью данной переменной можно определить тип операци онной системы: aix, freebsd и т.д.

Ниже перечислено несколько типичных системно зависимых задач, которые часто приходится решать в пользовательских программах.

• Поиск какой-либо информации, относящейся к конфигурации операцион ной системы.

11-й Взаимодействие с операционной системой • Работа с диском и структурой каталогов.

• Использование системных служб, например отправка электронной почты.

В качестве примера рассмотрим программу, с помощью которой можно легко оп ределить количество свободного дискового пространства в системе. Она будет полезна в случае, если один из пользователей захочет загрузить из Internet какой-либо файл и перед загрузкой проверить, поместится ли он на локальном диске. Фрагмент про граммы на оценивающий в системе Windows количество свободного дискового пространства для устройства, на котором находится текущий каталог, выглядит так:

В последней строке сообщения команды ' dir' должно находиться нечто наподобие: 10 dir(s) 67,502,080 bytes free В системе 98 вместо слова 'bytes' может выводиться 'MB' free/$l/;

В этом фрагменте кода выбирается последняя строка листинга, полученного с по мощью команды dir и помещенного в массив Далее с помощью регулярных вы ражений из этой строки выделяются числа и запятые, расположенные перед фразой bytes free. И, наконец, с помощью еше одного регулярного выражения из числа уда ляются запятые, которые служат в качестве разделителей тысяч. В результате в пере менной $free будет находиться размер свободного места на диске в байтах. Рассмот ренный нами пример прекрасно работает в системе Windows. Для UNIX следует вос пользоваться таким фрагментом программы:

В последних строках сообщения команды 'df должно находиться нечто наподобие:

Used Avail Capacity Mounted on 31775 21431 7802 73% / Таким образом, количество свободных блоков по 1024 байта будет находиться в четвертом поле слева.

вывода принят в системах и bsd -k §free*=1024;

Обратите внимание на отличие этого фрагмента кода от предыдущего. Для определе ния объема свободного пространства жесткого диска в системе Windows использовалась команда dir, а в UNIX — команда df -к.. Последняя строка, выводимая командой df к., разбивается на части, после чего извлекается содержимое четвертого (по счету) поля и присваивается переменной $free. Однако следует учитывать тот факт, что в различных системах UNIX выводимые командой df данные имеют разный формат (отличается ко личество полей) или поля расположены в другом порядке. Поэтому, если вы столкнетесь с такой проблемой, внесите необходимые коррективы в программу на Итак, мы создали две программы для двух операционных систем Windows и UNIX, выполняющих одни и те же действия, — определение объема свободного пространства на диске. Теперь давайте объединим их в одну универсальную программу, которая бу дет работать и в Windows, и в UNIX.

182 Часть Углубляемся в Perl if eq { В последней строке сообщения команды 'dir' должно находиться нечто наподобие: 10 bytes free В системе Windows 98 вместо слова 'bytes' может выводиться 'MB' free/$l/;

} eq { В последних строках сообщения команды 'df -k' должно находиться нечто наподобие:

Used Avail Capacity on 31775 21431 7802 73% / Таким образом, количество свободных блоков по 1024 байта будет находиться в четвертом поле слева.

Подобный формат вывода прннят в системах linux и bsd my{i!dir,$free);

$free*=1024;

} else { warn "Неизвестный тип операционной системы\п";

} Теперь наша универсальная программа включает версии для DOS/Windows и Linux. Если кто-то попытается запустить ее в другой операционной системе, будет выведено соответствующее предупреждение и программа корректно завершит свою работу. Теперь практически вся работа по написанию переносимой программы за вершена. Осталось только оформить ее в виде подпрограммы. Тогда все ее внутренние переменные будут локальными, и при необходимости любой программист сможет легко воспользоваться созданной вами подпрограммой.

f Подпрограмма вычисления свободного места в текущем каталоге sub freespace { • if eq 'MSWin32') { В последней строке сообщения команды 'dir' должно находиться нечто • наподобие: 10 dir(s) bytes free В системе Windows 98 вместо слова 'bytes' может выводиться 'MB' \w+ free/$l/;

} elsif eq 'linux') { В последних строках сообщения команды 'df должно находиться нечто наподобие:

Filesystem Used Avail Capacity Mounted on /dev/wdOsla 31775 21431 7802 73% / Таким образом, количество свободных блоков по 1024 байта Взаимодействие с операционной системой будет находиться в четвертом слева.

I Подобный формат вывода принят в системах и -к } else Значение умолчанию warn "Неизвестный тип операционной } return } Теперь, когда вам понадобится определить, сколько места осталось на диске, вызо вите функцию и она вернет нужное значение. Если же эта функция будет вызвана в той операционной системе, которая ею не поддерживается, на экране поя вится сообщение об ошибке. Исправить подобную ситуацию довольно просто — до бавьте еше один блок в условный оператор if.

Резюме На этом занятии вы узнали, как воспользоваться утилитами операционной системы для выполнения поставленной задачи. Для запуска системной утилиты или конвейера в предназначена функция Чтобы получить данные, выведенные утилитой на стандартное устройство вывода, следует поместить команду вызова в обратные кавычки В результате появляется возможность присвоить эти данные переменной для даль нейшей обработки средствами языка С помощью функции open можно открывать не только файлы, содержащие данные, но и файлы с программами. Для записи операто ров программы на Perl в файл используется оператор а для чтения — угловые скобки (о). И в конце занятия была продемонстрирована методика написания перено симых программ, которые могут без изменения работать на разных компьютерных платформах. При этом не требуется написание отдельных версий программы для каж дой поддерживаемой платформы, поскольку в Perl есть средства, позволяющие про грамме определить тип платформы, на которой она выполняется.

Вопросы и ответы Как открыть конвейер, чтобы получить данные от одной программы, обработать их и пе редать другой программе? Почему не работает оператор наподобие ореп(Р, " | команда | ")?

Решение этой простой задачи на деле оказывается гораздо сложнее, чем может по казаться на первый взгляд. Причина заключается в том, что попытка чтения и записи в конвейер со стороны одного и того же процесса приводит к блокировке процессов. В самом деле, после открытия конвейера при попытке выполнить чтение с помощью оператора <Р> ваша программа будет переведена в состояние ожидания по явления данных от программы команда. В то же время программа команда будет ожи дать появления данных от вашей программы. Таким образом, произойдет взаимная блокировка двух программ, выхода из которой нет. Однако если будет включен режим выдачи предупреждений, интерпретатор выведет сообщение Can't do bidirectional pipe (Нельзя создать двунаправленный конвейер).

Если вы столкнулись с подобной проблемой, воспользуйтесь модулем IPC: :0реп2, с помощью которого можно создать двунаправленный конвейер. Работа с модулями бу дет описана на 14-м занятии, "Использование модулей".

184 Часть II. Углубляемся в Perl Почему после выполнения оператора $a=system("команда") переменной $а не при сваиваются данные, выведенные командой в стандартный выходной поток, как можно бы ло бы предположить?

Вы перепутали функцию system с обратными кавычками. Эта функция не перехва тывает выходные данные программы. Чтобы решить проблему, воспользуйтесь опера тором $а= * команда Почему при запуске внешних команд в системе UNIX с помощью обратных кавычек не перехватываются сообщения об ошибках?

Дело в том, что всем программам в системе UNIX (в том числе и назначается два стандартных выходных потока: STDOUT и STDERR. Поток STDOUT используется для вы вода обычных сообщений во время работы программы, а поток STDERR — для вывода сообщений об ошибках. При помещении команды в обратные кавычки или открытии конвейера с помощью функции open выполняется перехват только потока STDOUT. Что бы решить проблему, необходимо с помощью средств командной оболочки перена править поток STDERR в STDOUT, как показано ниже:

Запуск с перехватом сообщений и ошибок За более подробной информацией, относящейся к процессу перехвата ошибок, об ратитесь к 8-му разделу списка часто задаваемых вопросов Perl. Для этого введите команду perldoc perlfaq8.

Семинар Контрольные вопросы 1. С помощью какой команды можно постранично отобразить выводимую программой информацию?

perl myprog.pl | more.

"| more") |j die;

print M "Данные...\n";

в) |] die;

print M 2. Какое значение переменной $foo будет использоваться в операторе:

а) значение переменной $foo системной оболочки;

б) значение переменной $foo Perl, после чего будет выполнена команда dir.

3. Решение какой из перечисленных ниже задач зависит от типа операцион ной системы?

а) определение свободного дискового пространства;

б) получение списка файлов каталога;

в) удаление каталога.

Взаимодействие с операционной системой Ответы 1. Правильными являются варианты а) и б). Если используется вариант а), выходной поток программы myprog.pl перенаправляется на вход программы more. В случае варианта б) данные, записанные в файл с дескриптором перенаправляются на вход программы more для отображения в постранич ном режиме.

2. Правильный ответ — вариант б). Чтобы изолировать переменную $foo от необходимо воспользоваться оператором qx'dir $foo'.

3. Единственно правильный вариант а), поскольку для получения списка фай лов каталога можно воспользоваться операторами Perl glob, <*> или opendir/readdir/closedir, а для удаления каталога служит команда Perl Упражнения С помощью функций получения статистических данных, описанных на 8-м занятии, "Функции", модифицируйте программу из листинга 11.1 так, что бы она отображала более подробную информацию о файлах.

Если вы работаете в системе UNIX, отличной от Linux, добавьте в подпро грамму freespace() соответствующую ветку для определения свободного пространства на диске. В качестве отправной точки воспользуйтесь приме ром для Linux.

186 Часть II. Углубляемся в Perl час Работа с командной строкой На предьщуших занятиях мы рассматривали как обычный интерпретатор, и не более того. Другими словами, команда perl использовалась исключительно для вы полнения программ на Perl, сохраненных в отдельных файлах. Однако этим далеко не исчерпываются все ее возможности. Оказывается, что в интерпретатор встроен также отладчик, который позволяет выполнять программы на Perl подобно воспроизведению видеокассеты, — вы можете "перематывать" программу в начало, выполнять ее в за медленном режиме и останавливать в любом месте для анализа содержимого внутрен них переменных. В некоторых случаях отладчик просто незаменим при поиске изо ошибок в программах на Perl.

Интерпретатор Perl позволяет также запускать программы, которые не хранятся в файле. Например, вы можете ввести короткую программу прямо в командной строке и выполнить ее.

Основные темы этого занятия.

• Использование отладчика Perl.

• Запуск небольших программ на Perl прямо из командной строки.

Отладчик Perl В Perl отладчик встроен прямо в интерпретатор. Он позволяет запустить любую программу на Perl в пошаговом режиме, просматривать и изменять значения ее внут ренних переменных, прерывать выполнение программы и возобновлять ее с любого места. При этом, с точки зрения процесс отладки происходит совершенно прозрачно, т.е. отладчик никак не влияет на ее внутреннюю структуру: входные дан ные по-прежнему поступают с клавиатуры, а вывод осуществляется на экран. Просто программа "не знает", работает она под отладчиком или нет, остановлена или выпол няется в пошаговом режиме. Отладчик позволяет полностью контролировать поведе ние программы, не нарушая ее целостности.

12-й час. Работа с командной строкой Perl Запуск отладчика Отладчик Perl запускается из командной строки операционной системы. В систе мах DOS и Windows в качестве приглашения на ввод команды обычно используется С:\>. В UNIX приглашение командной оболочки появляется после регистрации поль зователя в системе и обычно имеет вид % или $. На компьютерах Macintosh для запус ка отладчика выберите команду Debugger из меню Script. В результате на экране поя вится диалоговое окно отладчика.

Во всех примерах данного занятия используется программа Employee (см. лис тинг 9.1), о которой шла речь на 9-м занятии, "Дополнительные функции и операто ры". Поэтому имеет смысл сделать закладку на странице 97, чтобы при необходимо сти быстро найти текст программы. Для отладки программы Employee после пригла шения операционной системы введите приведенную ниже команду (для примера мы использовали систему DOS):

С:\> perl -d Employee Ключ указанный в командной строке, переводит интерпретатор Perl в режим отладки. После ключа указывается имя файла, содержащего отлаживаемую программу.

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

Default die handler Loading DB routines perl5db.pl version 1. Editor support available.

Enter h or h' for help, or for more help.

my main::{Employee:6):

main::(Employee:7):

);

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

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

В последней строке отладчик помещает приглашение DB<1> и устанавливает после него курсор. Цифра 1 означает, что отладчик ожидает ввода первой команды. В опи санном нами состоянии программа на Perl не запущена и находится в состоянии ожидания. При этом на экране отображается оператор, который должен быть выпол нен следующим (в нашем случае my а не ТОТ, который был выполнен раньше. Команды отладчика вводятся после приглашения.

188 Часть II. Углубляемся в Perl Основные команды отладчика Одной из самых важных команд, которую вы наверняка будете часто использовать, является команда help, предназначенная для вызова справочной системы отладчика.

Введите символ h, в результате на экране появится список всех команд отладчика и их краткое описание. Если после команды указать имя требуемой команды, то отлад чик выведет описание только этой команды.

Часто бывает, что описание какой-то команды не помешается на экране. При этом первые несколько строк просто "уедут" с экрана. Чтобы вывести справочную инфор мацию постранично, поместите перед командой символ вертикальной черты |. На пример, чтобы вывести справку по всем командам отладчика в постраничном режиме, введите команду |h.

Самой ценной возможностью отладчика Perl является его способность запускать программы в пошаговом режиме. Пользуясь этим, давайте продолжим выполнение упражнения, которое мы начали в предыдущем разделе, и перейдем к следующему оператору программы Employee. Итак, после приглашения отладчика введите команду n (next, или следующий):

n my $a>;

В результате интерпретатор Perl выполнит первый оператор программы Employee (строки с 5 по После этого отладчик распечатает следующий оператор, который должен быть выполнен, — $Fl)=split(',', $а);

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

DB<1> print После приглашения отладчика можно вводить не только его команды, но и любой оператор Обратите внимание, что в приведенном выше примере элементы мас сива никак не разделяются и смешаны в кучу. Чтобы распечатать каждое значение в отдельной строке, введите после приглашения такой оператор:

DB<2> print Чтобы продолжить выполнение программы в пошаговом режиме, вводите каждый раз команду п, как показано ниже:

DB<3> n { DB<3> main::{Employee:25): $b);

DB<3> n return ( $Ы cmp f Сравним фамилии 12-й час. Работа с командной строкой Perl || Если они идентичны.

main::(Employee:28): $F1 $F2 Тогда сравним имена );

DB<3> { Нетрудно заметить, что отладчик, пройдя несколько операторов, снова вернулся к строке 23 так, как будто в программе организован цикл. Все дело в том, что в опера торе sort задан блок сортировки, который выполняется в пошаговом режиме для каж дого элемента массива Поэтому при каждом вводе команды п отладчик бу дет выполнять цикл до тех пор, пока не будет отсортирован массив (а это произойдет довольно быстро).

Чтобы повторить предыдущую команду, можно просто нажать клавишу в строке приглашения.

Точки останова Выполнение программы под отладчиком в пошаговом режиме не всегда удобно, например когда программа очень большая. Поэтому для ускорения процесса отладки желательно, чтобы программа на выполнялась в обычном режиме и останавлива лась при достижении определенного оператора. Места, в которых программа приоста навливает свое выполнение под отладчиком, называются точками останова.

Перед тем как задать точки останова, нужно определить номера соответствующих операторов программы. Для этого используется команда 1. С ее помощью можно вы вести на терминал 10 следующих строк программы. Повторный ввод команды 1 выво дит 10 следующих операторов программы и т.д. Чтобы распечатать листинг програм мы начиная с определенной строки, введите команду 1 где вместо параметра укажите номер строки. В операторе 1 можно также указать диапазон строк, например 1 3-10.

В листинге текущий оператор, который должен быть выполнен, отмечается симво лом ===>, как показано в следующем примере:

DB<3> 1 23- { 24: my $Fl)=split( ', 25: my $F2)=split{ $b);

26: return { cmp $L2 Сравним фамилии 27 Если они идентичны...

II 28 $F1 cmp $F2 Тогда сравним имена * 30 } 32:

33: print emp($ ] В данном примере подходящим местом для установки точки останова будет стро ка 33. Дело в том, что она находится сразу после оператора sort и в ней расположен первый оператор блока основного цикла программы. Точки останова можно задать в 190 Часть II. Углубляемся в Perl любой строке программы, главное, чтобы в них находился корректный оператор Нельзя устанавливать точки останова на скобках (строка 30), знаках пунктуации (строка 29), пустых строках (строка 31) и комментариях, если они занимают всю строку.

Для задания точек останова используется команда b Вместо пара метра следует указать номер строки или имя подпрограммы. Например, чтобы задать точку останова в строке 33, введите следующую команду:

DB<4> b DB<5> Еще одной полезной командой, которая может пригодиться при работе с точками останова, является команда с (continue, или продолжить). При получении этой команды отладчик возобновляет выполнение программы до достижения следующей точки оста нова или программы (в зависимости от того, что произойдет раньше), например:

DB<5> с print_emp($_);

DB<5> Как и следовало ожидать, в данном случае выполнение программы будет останов лено в строке 33 перед вызовом функции print_emp. Для продолжения работы введите команду с. Поскольку точка останова остается все время активной, после выполнения функции print_emp программа будет снова остановлена в строке 33. При этом на экран будут выведены как данные программы, так и сообщение отладчика:

DB<2> с 198131 Тед 6.50 39 253. Для получения списка точек останова следует воспользоваться командой как по казано ниже на примере:

DB<2> L Employee:

33: print_emp($_);

break if (1) Из этого примера видно, что в отладчике была установлена одна точка останова в строке 33 файла Employee.

Для удаления точек останова используется команда d, синтаксис которой же, как и у команды b — d или d Вот пример:

DB<2> d DB<3> Другие команды отладчика Предположим, мы хотим отладить функцию и заодно посмотреть, как она работает. Это можно сделать несколькими способами. Для начала давайте переза пустим программу с помощью команды R:

DB<3> Warning: some settings and options may be lost!

Default die handler restored.

Loading DB routines from perl5db.pl version 1. 12-й Работа с командной строкой Perl Editor support available.

h or h' for help, or for more help.

my main::(Employee:6):

main::(Employee:7):

Pages:     | 1 | 2 || 4 | 5 |   ...   | 7 |



© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.