Oracle и Perl – это очень просто

... «Нужен мне работник:
Повар, конюх и плотник.
А где найти мне такого
Служителя не слишком дорогого ?»
А. С. Пушкин, «Сказка о попе и его работнике Балде».

введение

Perl – общедоступный язык программирования, существующий на разных платформах. Общедоступность его заключается как в возможности любого желающего законно и даром получить программы и сопутствующие материалы по Интернету, чтобы использовать как угодно, так и в возможности любого желающего поучаствовать в его разработке, не прекращающейся с 1987 года по сию пору. Иными словами, Perl – это пример разработки, ведомой методом открытых текстов (open source), и причем один из наиболее ярких успешных примеров. Разработчики Perl – программисты, создающие этот язык для своих же нужд, и поэтому Perl способен решать на удивление широкое разнообразие задач. Если вы работаете с Oracle, Perl поможет вам и администрировать БД и СУБД, и разрабатывать приложения, в том числе приложения для веб, и связывать компоненты ИС, разработанные в разных средах, друг с другом. Так что же мешает вам последовать примеру вполне коммерческой фирмы Oracle, которая использует Perl на установочных дисках своих продуктов?

установка Perl

Вообще-то, если вы установили Oracle вместе с сервером HTTP (то есть Apache), то Perl в вашем распоряжении уже есть. Например, для версий 8.1.6-9.2 он находится в каталоге [ORACLE_HOME]/Apache/perl/5.00503/bin (замените косые черточки на обратные для Windows). Если спуститься на каталог ниже и выполнить комманду perl –v, станет окончательно ясно, то в штатной поставке Oracle использована версия Perl 5.0. Она не самая последняя и к тому же представлена тут в ограниченном варианте, который достаточен для решения внутренних задач, поставленных перед Perl фирмой Oracle. Но для реальной работы лучше установить у себя более свежую версию.
Домашняя страница Perl -www.perl.com. Тут можно найти исходные тексты для построения исполняемых модулей Perl на разных платформах. Но часто проще воспользоваться уже готовыми исполняемыми модулями, имеющимися для многих платформ, например:
http://ftp.univie.ac.at/aix/ – для AIX
http://sunfreeware.com– для Solaris
http://jazz.external.hp.com/src/hp_freeware/perl/– для HP MPE/iX
http://www.activestate.com/Products/Download/Download.plex?id=ActivePerl– для Windows, Linux и Solaris.
Perl по духу близок к Unix, но по иронии судьбы проще всего его установить именно для Windows с указанной выше веб-страницы фирмы ActiveState (кстати, в последнее время ActiveState распространила эту простоту и на Linux с Solaris). Если вы решите ставить с ActiveState, не поддавайтесь соблазну выкачать из интернета более позднюю версию 5.8.4, а остановите лучше свой выбор на 5.6.1. Это сделает удобнее работу с Oracle, так как по состоянию на лето 2004 года для более ранних версий готовый драйвер для DBI для Oracle имелся, а в более новой отсутствовал.
Полученный из Интернета инсталляционный файл для Windows, например ActivePerl-5.6.1.638- MSWin32-x86.msi, нужно запустить (или распаковать, если выбрали файл формата zip), и через полминуты Perl установлен. В Unix потребуется выполнить традиционную, но несложную процедуру построения (make).
Дальнейшее изложение для определенности будет предполагать установку ActivePerl на Windows; подгонка сказанного под другие платформы потребует некоторых навыков, но не обязательно глубоких познаний.

первые опыты с Perl

Наберите в консольном окне perl –v и убедитесь, что среда Perl установлена и она нужной версии.
Многие языки программирования используются не так, как мыслились их создателям – отчасти или даже полностью. Perl задумывался как язык сценариев для командной оболочки OC, более развитый и переносимый. Сейчас он развился до языка программирования, но полностью цели своего далекого прошлого не изменил. Составим файл scriptexample.pl:

print "this is a perl scripting example:\n";

$resultfile = "scott.tables";
$tempfile = "temp.file";

open(TMP, ">$tempfile");

print TMP <<EOF;
SET PAGESIZE 0
SET FEEDBACK OFF
SET LINESIZE 30
SPOOL $resultfile
SELECT table_name FROM user_tables;
SPOOL OFF
EXIT
EOF

print `sqlplus -s scott/tiger <$tempfile`;

print "\nreturn code = ", system "sqlplus -s scott/tiger <$tempfile";

open (TABLES, $resultfile);
print "\n\n", <TABLES>;

print "\nend of example\n";

Обратите внимание на следующие особенности.
При формировании текста задания вместо простого spool scott.tables указан для примера более общий вариант, указывающий на возможность динамического формирования текста.
sqlplus в программе вызывается двумя способами. Первый использует специальные кавычки `...`, а второй – функцию system. Второй чуть более длинен, но зато позволяет обрабатывать код завершения программы.
Текст, полученный в sqlplus, тут же в программе может прочитываться и обрабатываться (print "\n\n", <TABLES>;).
В случае Unix в качестве первой строки потребуется добавить что-то вроде #!/usr/bin/perl, но в Windows этого можно и не делать.
Наберем в командной строке консольного окна ОС:

scriptexample.pl

или же

perl scriptexample.pl

Именно благодаря возможностям компоновки сценариев (только чуть затронутым приведенным примером) Perl иногда называют «клейкой лентой информационных систем».
Другую известную особенность языка составляют возможности разбора регулярных выражений. Возьмем пример со страницы http://aspn.activestate.com/ASPN/Cookbook/Rx/Recipe/59821 и чуть упростим его. Подготовим файл href.pl:

print "$2\n" while m{
< \s*
A \s+ HREF \s* = \s* (["']) (.*?) \1
\s* >
}gsix;


Наберем (в синтаксисе Windows):

href.pl C:\Perl\html\release.html

(Файл RELEASE.html входит в стандартную поставку ActivePerl). Обратите внимание, что на экране появились как глобальные адреса ссылок (http, ftp, mailto), так и локальные.

непосредственное обращение к БД

Доступ к БД под управлением Oracle может осуществляться через sqlplus указанным выше способом. Способностей Perl вполне хватит отбросить из выходного файла лишние строки и символы и извлечь в свои внутренние структуры содержательную часть. Иногда этого достаточно, но чаще вам потребуется обращение в БД из программы на Perl напрямую, например потому, что это эффективнее, или потому, что sqlplus в наличии нет.
Perl позволяет общаться напрямую со многими типами БД, и общение с СУБД Oracle реализовано в этом языке как частный случай общего решения. Правда для «настоящих» СУБД (не «персональных») история этого общего решения началась в Perl с 90-х годов именно с частного случая Oracle. С другой стороны для Oracle в Perl есть и отдельное решение - общение через OCI, которое здесь на рассматривается (для справки: это реализуется с помощью модуля Oracle::OCI в Perl).
Общение с БД «вообще» реализуется в Perl посредством специального интерфейса под названием DBI (буква i – independent – означает независимость от конкретного типа БД). Для работы с конкретной БД вдобавок требуется установить драйвер DBD, расчитанный на этот тип базы (буква d – dependent – означает зависимость от конкретного типа БД). Интерфейс DBI и драйвер Oracle DBD реализованы в виде модулей Perl, и их можно установить со страниц архивов Perl, называемых CPAN (Comprehensive Perl Archive Network): http://www.perl.com/CPAN/. В ActivePerl это можно сделать проще с помощью программы ppm. Достаточно войти в нее и выполнить команды:

ppm
PPM> install DBI
PPM> install DBD-Oracle
PPM> query
PPM> exit

Команда query позволит просмотреть все установленные модули и удостовериться в наличии DBI и DBD-Oracle.
Теперь все готово к проверке работы с Oracle. Составим файл HelloMiller.pl:

use strict;
use DBI;

my $dbh = DBI ->connect
( 'dbi:Oracle:orcl', 'scott', 'tiger',
{RaiseError => 1,
AutoCommit => 0} );;

my $sql = qq{ SELECT ename, sal, COMM FROM emp };

my $sth = $dbh->prepare( $sql );

$sth->execute();

while ( my($ename, $sal, $comm) = $sth->fetchrow_array) {
printf ("%-10s %7.2d %7.2d", $ename, $sal, $comm);
if ($ename =~ /MILLER/) { print ", Hello Miller !"; }
print "\n";
}

$dbh->disconnect();

Запустим программу:

HelloMiller.pl

или

perl HelloMiller.pl

Идею поприветствовать Миллера я заимствовал из книги http://www.ccas.ru/ prz/ORA/oracleopensource.html.

клиент-сервер – это еще не все

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

Технологии Oracle позволяют организовать обращение из PL/SQL к внешним процедурам на Perl, наподобие как для C. Чтобы это сделать, нужно иметь определенную квалификацию в Oracle, и это экзотика, но тем не менее это возможно, а вследствие своеобразных языковых возможностей Perl – вовсе не бесполезно!
Дополнительный модуль Apache под названием mod-perl позволяет запускать из браузера программы на Perl гораздо эффективнее, чем посредством CGI. Одна из привлекательных возможностей при такой работе – обращение к БД посредством модуля Perl Apache::DBI. В этом случае соединения с Oracle будут браться из «пула соединений» совсем как при работе с сервлетами на Java и с теми же выгодами.
Два конкурирующих решения позволяют использовать Perl в качестве языка, встроенного в HTML, наподобие страницам JavaServer или ASP, выполняющего вычисления веб-на сервере. Это так называемые системы Embperl и Mason, реализованные в Perl посредством модулей соответственно HTML::Embperl и HTML::Mason. Оба варианта обладают развитой функциональностью и подобно всем прочим разработкам для Perl общедоступны и открыты.

Владимир Пржиялковский, преподаватель технологий Oracle.