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

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

Введение

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

Отправной страницей web для установки Perl служит http://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 с указанной выше страницы web фирмы ActiveState. (Правда, в последнее время ActiveState распространила эту простоту и на Linux с Solaris). Если вы воспользуетесь услугами этой страницы, уступите соблазну выкачать из интернета более позднюю версию 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 и убедитесь, что сиcтема 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 "nn", <TABLES>;

print "nend of examplen";

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

Наберем в командной строке консольного окошка ОС:

scriptexample.pl

perl scriptexample.pl 

Именно благодаря возможностям компоновки сценариев (только чуть затронутым приведенным примером) Perl иногда называют «клейкой лентой информационных систем».

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

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

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

href.pl C:Perlhtmlrelease.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, выполняющего вычисления на сервере web. Это так называемые системы Embperl и Mason, реализованные в Perl посредством модулей соответственно HTML::Embperl и HTML::Mason. Оба варианта обладают развитой функциональностью и подобно всем прочим разработкам для Perl общедоступны и открыты.

Автор: Владимир Пржиялковский