Глава 6. Использование языка Perl

Содержание

6.1Основные особенности Perl
6.1.1Введение

6.2Взаимодействие с СУБД
6.2.1Взаимодействие с Oracle
6.2.1.1Основные функции доступа
6.2.1.2Дополнительные функции
6.2.1.3Переменные
6.2.1.4Переменные для подстановки

6.3Написание модулей CGI

6.4Обработка файлов формата DBF

6.1 Основные особенности Perl

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

6.2 ВзаимодействиеВзаимодействие— философская категория, отражающая процессы воздействия объектов друг на друга, их взаимную обусловленность и порождение одним объектом другого. Взаимодействие— объективная и универсальная форма движения, развития, которая определяет существование и структурную организацию любой материальной системы. с СУБД

Perl позволяет осуществлять доступ к различным СУБД. Здесь будет освещен вопрос доступа к СУБД Oracle.

6.2.1 Взаимодействие с Oracle

6.2.1.1 Основные функции доступа

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

#!/usr/local/bin/perl



use Oraperl;



# подключаем модуль Oraperl



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



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



# вход в систему







$st = 'create table EMP (name varchar2(100),



organization varchar2(100))';



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



&ora_close($csr);



# создание таблицы в базе данных







$st = 'insert into EMP values



(\'John Smit\', \'NATO\')';



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



&ora_close($csr);



# помещение строки в таблицу

$st = 'select name from EMP



where organization = \'NATO\'';



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



# выбираем из таблицы значения столбца name,



# которым сответствует значение столбца organization



# равное 'NATO'



@result = &ora_fetch($csr);



# помещаем эти значения в массивИндексный массив (в некоторых языках программирования также таблица, ряд)— именованный набор однотипных переменных, расположенных в памяти непосредственно друг за другом, доступ к которым осуществляется по индексу (в отличие от списка). @result



&ora_close($csr);



print @result;



&ora_logoff($lda);



# выход из системы

Для взаимодействия с Oracle в Perl есть специальный модуль Oraperl.pm. Основными функциями для доступа к базе данных являются:
&ora_login

$lda = &ora_login($system_id,$username,$password)

$csr = &ora_open($lda, $statement [,$cache])

$csr = &ora_open($lda,'selectSELECT ("селект") — оператор DML языка SQL, возвращающий набор данных (выборку) из базы данных, удовлетворяющих заданному условию. ename,



sal from emp order by ename',10);

&ora_bind($csr, $var, ...)

$csr = &ora_open($lda, 'insert into emp values (:1,:2)');



&ora_bind($csr,$ename,$sal);

$nfields = &ora_fetch($csr[, trunc]);



@array = &ora_fetch($csr);

параметрПараметр (от др.-греч. «соразмеряю») — величина, значения которой служат для различения элементов некоторого множества между собой.

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

&ora_close($csr)

&ora_do($lda,$statement)

&ora_do($lda,'drop table employee');

&ora_close(&ora_open($lda, 'drop table employee'));

&ora_logoff($lda)

6.2.1.2 Дополнительные функции

Дополнительные возможности предоставляются функциями
&ora_titles()
&ora_length()
&ora_types()
&ora_autocommit()
&ora_commit()
&ora_rollback()
&ora_version()

&ora_titles

@titles = &ora_titles($csr)

@length = &ora_length($csr)

@types = &ora_types($csr)

OracleOracle (Oracle Corporation)— американская корпорация, крупнейший в мире разработчик программного обеспечения для организаций, крупный поставщик серверного оборудования. v6

&ora_autocommit($lda,$on_or_off)

идентификаторИдентификатор, ID (англ.data name, identifier — наименование данных) - это уникальный признак объекта, позволяюший различать объекты и/или объект по идентификатору.

&ora_commit($lda)



&ora_rollback($lda)

&ora_version()

6.2.1.3 Переменные

В модуле Oraperl.pm есть шесть специальных переменных:
$ora_cache
$ora_long
$ora_trunc
$ora_errno
$ora_errstr
$ora_verno
Эти переменные используются для определения поведения Oraperl в определенных условиях.
$ora_cache Эта переменная определяет размер буфера для функции &ora_open() и SELECTSELECT ("селект") — оператор DML языка SQL, возвращающий набор данных (выборку) из базы данных, удовлетворяющих заданному условию.-выражения, если точный размер буфера не указан. Как правило устанавливается размер буфера равный пяти. Присваивание этой переменной значения, равного нулю, устанавливает значение этой переменной равным первоначальному значению. ПрисваиваниеПрисваивание — механизм в программировании, позволяющий динамически изменять связи объектов данных (как правило, переменных) с их значениями. Строго говоря, изменение значений является побочным эффектом операции присвоения, и во многих современных языках программирования сама операция также возвращает некоторый результат (как правило, копию присвоенного значения). На физическом уровне результат операции присвоения состоит в проведении записи и перезаписи ячеек памяти или регистров процессора. отрицательной величины приводит к ошибке.
$ora_long Обычно Oraperl спрашивает базу данных о длине каждого поля и соответствующим образом распределяет буферное пространствоПространство— понятие, используемое (непосредственно или в словосочетании) в естественных языках, а также в таких разделах знаний, как философия, математика, физика ит.п.. Это невозможно для полей типа LONG и LONGRAW. Распределение пространства в предположении максимально возможной длины (65535 bytes) привело бы к излишним тратам памяти. Поэтому когда &ora_open() определяет, что поле имеет тип LONG, памятьПамять— одна из психических функций и видов умственной деятельности, предназначенная сохранять, накапливать и воспроизводить информацию. Способность длительно хранить информацию о событиях внешнего мира и реакциях организма и многократно использовать её в сфере сознания для организации последующей деятельности. распределяется согласно значению переменной $ora_long. При инициализации она принимает значениеЗначение— ассоциативная связь между знаком и предметом обозначения. 80 (для совместимости с продуктами Oracle), но в программе ее можно устанавливать произвольным образом.
$ora_trunc Так как Oraperl не может точно определять длину значений типа LONG, возникают ситуации, когда значение $ora_long недостаточно для хранения полученных данных. В таком случае, если у &ora_fetch есть необязательный второй параметр, происходит обрезание данных. Если второйВторой — второй по счёту альбом песен Владимира Высоцкого в исполнении Григория Лепса, записанный и вышедший в 2007 году параметр опущен, то вместо него используется значение $ora_trunc.
$ora_errno Содержит код ошибки произошедшей при последнем вызове какой-либо функции. Есть два интересных случая, касающихся &ora_fetch(). В первом случае, если произошло обрезание данных типа LONG или LONGRAW и обрезание было разрешено, тогда выполнение этой функции полностью успешно, но $ora_errno принимает значение 1406, для индикации того, что произошло обрезаниеОбрезание или обрезание— хирургическая операция («циркумцизия», лат.. Во втором случае, если &ora_fetch() возвратила false, то $ora_errno принимает значение 0 в случае конца данных или код ошибки, если действительно произошла ошибкаОшибка— несоответствие между объектом или явлением, принятым за эталон (материальный объект, решение задачи, действие, которое привело бы к желаемому результату), и объектом/явлением, сопоставленным первому..
$ora_errstr Содержит сообщение об ошибке, соответствующее значению $ora_errno.
$ora_verno Содержит версию Oraperl в формате v.ppp, где v - основной номер версии, а ppp - patchlevel.

6.2.1.4 Переменные для подстановки

Oraperl позволяет SQL выражению содержать обращение к переменным языка Perl. Они состоят из двоеточия и следующего за ним номера. Например:

$csr = &ora_open($lda,"insert into tel values(:1,:2)");

&ora_bind($csr, "Annette","3-222-2-22-22-22");



&ora_bind($csr,$name,$telephone);

6.3 Написание модулей CGI

Язык Perl очень широко используется при написании исполняемых модулей CGI (Common Gateway Interface) для Web. Это обусловлено прежде всего тем, что Perl предоставляет разработчикам простые и удобные средства обработки текста и взаимодействия с базами данных. Наша цель - лишь дать пример использования Perl для написания CGI-модуля. Рассмотрим простую подпрограмму разбора входного потока CGI-программы (при передаче параметров используется метод POST ).

#!/usr/local/bin/perl



sub Print {



$len = 100;



$buf = "";



read(STDIN, $buf,$len);



# считываем из стандартного потокаПотока (болг. Потока) — село в Болгарии. Находится в Смолянской области, входит в общину Смолян. Население составляет 11 человек. ввода



# в переменную $buf количество символов



# $len



@ar = split(/[&=]/,$buf);



# разбиваем строку в массив строк,



# разделителями служат & и =.







$output = "Content-type: text/html\n\n



# посылает тип MIME передаваемого документа



<HTML><HEAD><TITLE>Result</TITLE></HEAD>



<BODY BGCOLOR=\"#FFAAAA\">



<H1>Hi there</H1><HR><BR>";



$i = 0;



while ($i <= $#ar) {



$ar[$i] =~ s/\+/ /g;



# заменяем в элементах массива + на пробел



$output .= "$ar[$i]\n";



# конкатенацияКонкатенация (сцепление)— операция склеивания объектов линейной структуры, обычно строк. Например, конкатенация слов «микро» и «мир» даст слово «микромир». переменной $output с



# элементом массива



$i++; }



$output .="<HR></BODY></HTML>";



# завершаем HTML страницу



print $output;



}



eval &Print;



# выполняем подпрограмму осуществляющую



# считывание, обработку и вывод информации

примераПримера Дивизион (исп.Primera Divisin) профессиональной футбольной лиги Испании (исп.Liga de Ftbol Profesional, LFP), известный также как Примера и Ла Лига (исп.La Liga), является профессиональным футбольным турниром клубов высшего уровня в системе футбольных лиг Испании. Ла Лига считается одной из лучших футбольных лиг в мире.

6.4 Обработка файлов формата DBF

Для взаимодействия с файлами этого формата существует специальный модуль - Xbase.pm На текущий момент поддерживается только возможность чтения таких файлов. Этот модуль подключается стандартным образом: use Xbase;

Новый Xbase объект создается следующим образом:

$database = new Xbase;

$database->open_dbf($dbf_name,$idx_name);

print $database->dbf_type;

print $database->last_update;

$end=$database->lastrec;

$database->dbf_stat;

$database->idx_stat;

STDOUTСтандартные потоки ввода-вывода в системах типа UNIX (и некоторых других)— потоки процесса, имеющие номер (дескриптор), зарезервированный для выполнения некоторых «стандартных» функций. Как правило (хотя и не обязательно), эти дескрипторы открыты уже в момент запуска задачи (исполняемого файла).

$database->go_top;

$database->go_bottom;

$database->go_next;

$database->go_prev;

$stat=$database->seek($keyvalue);

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

$current_rec=$database->recno;

if ($database->bof) {



    print " At the very top of the file \n";



}

if ($database->eof) {



    print " At the very end of the file \n";



}

print $database->get_field("NAME");

@fields = $database->get_record;

$database->close_dbf;

#!/usr/bin/perl



use Xbase;



# подключение модуля



$database = new Xbase;



# создание объекта



$d = "/home/smit/employee.dbf";



# имя файла с базой



$i = "/home/smit/employee.cdx";



# имя индексного файла



$database->open_dbf($d,$i);



# открываем базу данных



$database->dbf_stat;



# печатаем статус и структуру



# базы данных



$database->idx_stat;



# печатаем статус и структуру



# индексов



@fields = $database->get_record;



print @fields,"\n";



# печатаем содержимое текущей записи



print $database->last_update, "\n";



# печатаем дату последнего обновления



$end = $database->lastrec;



print $end;



#печатаем номер последней записи

Полная спецификация языка Perl приводиться в Приложении 2 к отчету.