А Б В Г Д Е Ж З И К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Э Ю Я
0-9 A B C D I F G H IJ K L M N O P Q R S TU V WX Y Z #


Чтение книги "Введение в Perl" (страница 1)

   Владимир Викторович Маслов
   Введение в Perl

   Copyright (C) Маслов Владимир Викторович
   Все замечания и предложения направляйте по адресу:
   maslov@klgtts.kaluga.su
   maslov@news.kaluga.rosmail.com

   Все примеры в книге проверены для Перл версии 5.003
   операционной системы Unix FreeBSD 2.1.0.

   От простого к сложному

   Прежде чем приступить к последовательному ознакомлению с не знакомым для вас языком, должен оговориться и сказать, что все примеры да и сам язык описанию которого посвящена эта книга это Perl версии 5.003 для операционной системы FreeBSD версии 2.01. Существуют реализации этого языка для операционных систем OS/2 , MS-DOS и Windows NT но они немного отстают по возможностям от оригинала, рожденного в недрах Юникса.
   Пример 1 Введите в файл test1.pl следующие строки:
   #!/usr/local/bin/perl
   # Содержимое файла test1.pl
   print «Наше Вам с кисточкой!n»;
   А теперь подробно разберем каждую строку.
   #!/usr/local/bin/perl
   Данная строка должна быть первой в любой Перл-программе.
   Она указыванет системному интерпретатору что данный файл – это Перл-программа.
   # Содержимое файла test1.pl
   Эта строка называется комментарием. Она всегда начинается символом '#' и заканчивается таким объяснением что как говорил великий Ходжа Насреддин «это тонкий филосовский вопрос», а говоря простым языком здесь можно писать все что угодно.
   Даже пожелание руководству. Уж здесь оно точно до него не дойдет.
   print «Наше Вам с кисточкой!n»;
   Самая последняя ну и конечно главная. Она просто выводит на экран надпись «Наше Вам с кисточкой!».
   Здесь слово print – это команда «вывести». Все что в кавычках – это символы, n – перевод строки и ';' – признак конца команды. Он обязателен.
   В одной строке может быть несколько команд и все они должны завершаться символом ';'. После него может быть символ '#' – это значит остаток строки считается комментарием.
   Над этой строкой автору пришлось больше всего поломать голову так как в нее постоянно лезли какие то странные «hello», «hello all», «Построемся и спасемся», «Строй наше спасение» и т.д и т.п.
   Если вы никогда не работали с Перл, то бъюсь на спор в 10$, что данная программа сразу у вас не заработает!
   Не потому что она не верна, а потому что «Нельзя объять необъятное».
   Сразу, потом можно, да и то частями.
   Сначало сделайте ваш файл test1.pl исполняемым. Для этого введите команду:
   chmod +x test1.pl
   Затем проверьте где у вас Перл. Для этого введите:
   which perl
   Система вам выдаст что то вроде:
   /usr/bin/perl
   Если:
   perl: Command not found.
   То тогда закройте книжку и ложитесь спать. У вас просто нет Перл или он не установлен. А мне остается послать вас к системному администратору или к man (для переводчиков– man сокращение от manual а не то что вы подумали).
   Теперь проверьте что бы строка 01 содержала то что выдала команда which.
   Если совпало то введите:
   test1.pl
   и бъюсь на 50$ что и теперь программа не заработает, так как правильней
   ввести:
   ./test1.pl
   Если я проиграл, то не радуйтесь. Да же если вам удалось запустить программу как test1.pl это значит, что у вас будут неприятности в будущем.
   Пример 2 Данная программа выводит на экран все ваши секреты. А именно файл /etc/passwd.
   #!/usr/local/bin/perl
   open(PASS, «</etc/passwd») || die «Файл не найден!»;
   while(<PASS>)
   {
   print;
   }
   close(PASS);
   Пояснения:
   open(PASS, «</etc/passwd») || die «Файл не найден!»;
   «Открыть» файл т.е. создать указатель файла PASS и в случае ошибки выдать «Файл не найден!» и закончить программу.
   while(<PASS>)
   Читать по одной строке файла в переменную по умолчанию $_.
   {
   Открыть блок операторов.
   print;
   Вывести на экран переменную по умолчанию $_
   }
   Конец блока.
   close(PASS);
   Закрыть файл. Этого можно и не делать так-как файл автоматически закроется после окончания программы.
   Результат работы этой программы тот же что и команды cat /etc/passwd.
   По экрану пробежали непонятные строки но зато теперь перед вами открыты горизонты Перл программирования!
   Все последующие примеры будут развитием этой программы и она превратится из гадкого утенка в прекрасного лебедя (не генерала).
   Пример 3 Разделение полей.
   #!/usr/local/bin/perl
   open(PASS, «</etc/passwd») || die «Файл не найден!»;
   while(<PASS>)
   {
   ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
   print «$login t $namen»;
   }
   close(PASS);
   Пояснение:
   ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
   Присвоить указанным переменным поля входной строки, считая разделителем символ ':'.
   print «$login t $namen»;
   Вывести login – имя пользователя и его описание. Поля разделены символом 't' – табуляции.
   Пример 4 Вывести имена пользователей отсортированных по группам.
   #!/usr/local/bin/perl
   open(PASS, «sort -n -t : +3 -4 +0 /etc/passwd|») || die «Файл не найден!»;
   while(<PASS>)
   {
   ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
   print «$login t $gid t $namen»;
   }
   close(PASS);
   Поеснения:
   open(PASS, «sort -n -t : +3 -4 +0 /etc/passwd|») || die «Файл не найден!»;
   В данной строке весь фокус! Входным файлом для нашей программы стал выход команды sort которая и отсортирует входные данные.

Форматированный вывод.
   Ну а теперь напечатаем на экране все наши данные в удобной форме.
   #!/usr/local/bin/perl
   open(PASS, «sort -n -t : +3 -4 +0 /etc/passwd|») || die «Файл не найден!»;
   while(<PASS>)
   {
   ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
   write(); # Форматированный ывод данных.
   }
   close(PASS);
   exit 0; # Завершение программы
   ############ Описание формы вывода ##################
   format STDOUT =
   Пользователь:
   ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $name
   ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $name
   ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   $name
   Login:@<<<<<<<< Uid:@<<< Gid:@<<< Home dir:@<<<<<<<<<<<<<<<<<<<<<
   $login, $uid, $gid, $home_dir
   . # Это последняя строка программы
   Фрагмент результата:
   Пользователь: Калужский ликеро-водочный завод. Лучшие водки и
   настойки. Звонить только перед праздником Кострикову
   Анатолию т. 2-23-06,,,
   Login:uucryst Uid:1055 Gid:66 Home dir:/var/spool/uucppublic/
   Пользователь: Торговый Дом Дилен,,,
   Login:uudilen Uid:1075 Gid:66 Home dir:/var/spool/uucppublic
   Если вам интересно узнать как работает эта программа, то переверните
   страницу и начините свое путешествие в мире Перл.
   Желаю удачи!

   Запуск интерпретатора Перл

   Синтаксис:
   perl [ключи] файл аргументы
   Перед стартом Перл ищет скрипт (программу) в следующем порядке:
   1. В командной строке если указан ключ '-e'
   2. Содержимое файла указанного в командной строке. В первой строке можно указывать #!/usr/bin/perl для «автоматического» запуска скрипта.
   3. Стандартный ввод/вывод если не указан файл или аргументы содержащие имя файла. Для передачи аргументов скрипту из стандартного потока имя файла в командной строке обозначается символом '-'.
   В методах 1 и 2 Перл сканирует строки начиная с первой если не указан ключ '-x', в противном случае началом программы считается строка с символами '#!' в начале и содержащая слово 'perl'.
   Концом программы считается строка '__END__'.
   В строке с '#!' можно указывать и ключи. Например '#!/bin/perl -d' для отладки программ.
   После «обнаружения» скрипта Перл компилирует его целиком во внутреннее представление. Если обнаруживаются ошибки то выполнение прекращается. Если ошибок нет он выполняется. Если скрипт заканчивается без команд exit() или die() то по умолчанию выполняется команда exit(0) обозначающая нормальное завершение программы.
   Ключи:
   -Oцифры
   Код символа-разделителя записей. По умолчанию .
   -a
   Включает режим автоматического разделения (split) переменной $_ в массив $F. Применяется с ключами -n и -p.
   -c
   Выполняется синтаксическая проверка скрипта и выход без запуска.
   -d
   Запуск в режиме интерактивной отладки.
   -Dчисло или Dсписок
   Установить флаги отладки Перл. Например -d14 проследить как Перл исполняет вашу программу.
   1 p Синтаксический разбор
   2 s Состояние стека
   4 l Состояние стека имен
   8 t Трассировка исполнения
   16 o Создание оператора узла
   32 c Строковое/числовое преобразование
   64 p Вывод команды препроцессора для -P
   128 m Распределение памяти
   256 f Обработка формата
   512 r Синтаксический разбор регулярных выражений
   1024 x Дамп синтаксического дерева
   2048 u Проверка защиты
   4096 L «Утечка» памяти
   8192 H Дамп хеша
   16384 X Распределение scratchpad
   32768 D Очистка
   -e команда
   Выполнение скрипта из одной строки указанного в командной строке.
   -F шаблон
   Указывает шаблон разделения в режиме работы с ключом -a
   -iрасширение
   Применяется для резервной копии файла обрабатываемого оператором '<>'. Оригинал хранится в файле с тем же именем что и исходный, но с указанным расширением.
   Пример:
   perl -p -i.old -e «s/рядовой/ефрейтор/» file
   – Поменять все слова «рядовой» на «ефрейтор» в файле file
   а оригинал записать в файле file.old
   -Iдиректория
   Директория includ- файлов для С препроцессора. Применяется с ключом –P
   по умолчанию это /usr/include и /usr/lib/perl.
   -lчисло

Автоматическая обработка символа конца строки.
   Работает в двух случаях.
   1. Отбрасывает последний символ читаемых строк для режимов -n и -p
   2. Присваивает указанное значение переменной $. Таким образом к концу каждой строки выводимой оператором print добавляется этот символ.
   -n
   Зацикливает скрипт и последовательно обрабатывает файлы указанные в командной строке. Позволяет создавать команды подобные sed или awk.
   Операторы BEGIN и END дают возможность делать начальные и конечные установки. Содержимое файлов не выводится.
   -p
   То же что и -n но печатает обрабатываемые строки файлов.
   -P
   Предварительная обработко препроцессором языка С. Будьте внимательны и не применяйте в комментариях слова 'if', 'else' или 'define' т.к. это команды С – препроцессора.
   -s
   Включение режима обработки ключей командной строки запуска скрипта.
   Все аргументы с символом '-' в начале, считаются ключом и переменным с таким же именем присваивается значение true.
   -S

Использование системной переменной PATH для поиска скрипта.
   Данный ключ применяется в системах не воспринимающих последовательность "#!" в начале скрипта для указания интерпретатора.
   -T
   Режим проверки «дыр» в защите. Обычно это нужно для программ работающих в режиме повышенной привелегии (setuid, setguid). Желательно для CGI скриптов.
   -u
   Принудительный дамп памяти после компиляции скрипта. Этот дамп можно потом использовать для создания исполняемого файла с помощью программы undump.
   -U
   Разрешение выполнять опасные операции. Например стереть директорию или выполнять явно не закрытую программу.
   -v
   Вывод номера версии Перл.
   -w
   Вывод имен переменных используемых только один раз, имен скаляров используемых до их определения, имен переопределяемых подпрограмм, ссылок на неопределенный указатели файлов, попыток записи в файлы открытых только на «чтение», употребление не коретных записей чисел, использование массивов как скаляров, рекурсия более 100 уровней.
   -x директория
   Режим запуска скрипта вставленного в файл содержащий обычный текст. Началом скрипта считаестся строка с символами '#!' в начале и содержащия слово perl. Концом – строка с '__END__'
   Указанная директория становится текущей в момент исполнения. Если необходимо читать последующие строки то это лучше делать через указатель файла DATA.
Чтение онлайн



[1] 2 3 4 5 6 7 8 9

Навигация по сайту
Реклама


Читательские рекомендации

Информация