Pod операторы. Документирование программ

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

= head Набор стандартных процедур

то пропускается все до слова '=cut'. Это удобно для включения длинных на несколько строк или страниц комментариев. Затем с помощью специальной программы pod можно отделить текст документации от текста программы.

Спецификация языка Perl.

1. Основные особенности Perl

1. 1.Введение 2.Cтруктуры данных 2.1.Скалярные величины 2.2.Простые массивы 2.3.Ассоциативные массивы

3.Синтаксис языка Perl

3.1.Основные понятия 3.2.Простые операторы 3.3.Составные операторы

3.4.Операторы языка Perl

3.4.1.Термы и операторы списка 3.4.2.Оператор ``стрелка'' 3.4.3.Операторы ++ и - - 3.4.4.Экспоненциальный оператор 3.4.5.Символьные унарные операторы 3.4.6.Операторы связки 3.4.7.Бинарные операторы 3.4.8.Операторы сдвига 3.4.9.Операторы сравнения 3.4.10.Операторы эквивалентности 3.4.11.Побитовое И, побитовое ИЛИ и Исключающее ИЛИ 3.4.12.Логическое И и логическое ИЛИ 3.4.13.Оператор диапазона 3.4.14.Условный оператор 3.4.15.Операторы присваивания 3.4.16.Оператор ``запятая'' 3.4.17.Логическое НЕ 3.4.18.Логическое И, ИЛИ и Исключающее ИЛИ 3.4.19.Оператор чтения из файла 3.4.20.Оператор замены строки 3.4.21.Оператор замены множества символов

4.Языковые конструкции Perl 4.1.Ссылки

4.1.1.Основные понятия 4.1.2.Символьные ссылки 4.2.Регулярные выражения 4.3.Зарезервированные переменные 4.4.Встроенные функции

4.5.Подпрограммы и модули

4.5.1.Подпрограммы 4.5.2.Пакеты 4.5.3.Таблицы символов 4.5.4.Конструкторы и деструкторы пакетов 4.5.5.Классы 4.5.6.Модули 5.Объектная ориентация 5.1.Объекты 5.2.Классы 5.3.Методы 5.4.Вызов метода 5.5.Деструкторы

Введение

Perl - интерпретируемый язык, приспособленный для обработки произвольных текстовых файлов, извлечения из них необходимой информациии и выдачи сообщений. Perl также удобен для написания различных системных программ. Этот язык прост в использовании, эффективен, но про него трудно сказать, что он элегантен и компактен. Perl сочитает в себе лучшие черты C, shell, sed и awk, поэтому для тех, кто знаком с ними, изучение Perl-а не представляет особого труда. Cинтаксис выражений Perl-а близок к синтаксису C. В отличие от большинства утилит ОС UNIX Perl не ставит ограничений на объем обрабатываемых данных и если хватает ресурсов, то весь файл обрабатывается как одна строка. Рекурсия может быть произвольной глубины. Хотя Perl приспособлен для сканирования текстовых файлов, он может обрабатывать так же двоичные данные и создавать .dbm файлы, подобные ассоциативным массивам. Perl позволяет использовать регулярные выражения, создавать объекты, вставлять в программу на С или C++ куски кода на Perl-е, а также позволяет осуществлять доступ к базам данных, в том числе Oracle. Ниже приводится в качестве примера небольшая программа, которая осуществляет доступ к Oracle.

#! /usr/local/bin/perl -w

# запуск с ключом печати ошибок.

use Oraperl;

# подключение модуля для работы с Oracle

$system_id = 'T:bdhost.somwere.com:Base';

# описание имени базы данных

$lda = &ora_login($system_id, 'scott','tiger');

# подключение к базе данных пользователя

# scott с паролем tiger

$statement = 'create table MYTABLE

(NAME char(10), TITLE char(20),

ORGANIZATION varchar2(256))';

# SQL команда создания таблицы MYTABLE

$csr = &ora_open($lda, $statement)

|| die $ora_errstr;

# открытие курсора csr, если это невозможно,

# то осуществляется выход и печать сообщения об ошибке.

&ora_close($csr); # закрытие курсора

open(FL, '/home/my_home_directory/my_file')

|| die "Can't open file \n";

# открытие файла, если это невозможно,

# то выход с печатью сообщения об ошибке

while ($string = <FL>) {

# чтение входного потока из файла с дескриптором FL

@array = split(/\//,$string);

# считанная строка разбивается в массив

# строк, разделителем служит слеш

$st = 'insert into MYTABLE values(:1,:2,:3)';

# SQL команда помещения в таблицу некоторых значений

$csr = &ora_open($lda,$st) || $ora_errstr;

# открытие курсора или печать

# сообщения об ошибке и выход

&ora_bind($csr,$array[0],$array[1],$array[2]);

# привязка значений переменных к величинам, которые

# требуется поместить в таблицу

&ora_close($csr); # закрытие курсора

}

close FL; # закрытие файла

&ora_commit($lda);

# завершение транзакции в базе данных

&ora_logoff($lda);

# отключение от базы данных