Использование языка 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
6.1.1 Введение
Perl - интерпретируемый язык, приспособленный для обработки произвольных текстовых файлов, извлечения из них необходимой информации и выдачи сообщений.
Perl также удобен для написания различных системных программ. Этот язык прост в использовании, эффективен, но про него трудно сказать, что он элегантен и
компактен. Perl сочитает в себе лучшие черты C, shell, sed и awk,
поэтому для тех, кто знаком с ними, изучение Perl-а не представит особого труда. Cинтаксис выражений Perl-а близок к синтаксису C. В
отличие от большинства утилит ОС UNIX Perl не ставит ограничений на объем обрабатываемых данных и если хватает ресурсов, то весь файл обрабатывается как
одна строка. Рекурсия может быть произвольной глубины. Хотя Perl приспособлен для обработки текстовых файлов, он может обрабатывать так же двоичные данные и
создавать .dbm файлы, подобные ассоциативным массивам. Perl позволяет использовать регулярные выражения, создавать объекты, вставлять в программу на
С или C++ куски кода на Perl-е, а также позволяет осуществлять доступ к базам данных, в том числе Oracle.
Этот язык часто используется для написания CGI-модулей, которые, в свою очередь, могут обращаться к базам данных. Таким образом может
осуществляться доступ к базам данных через WWW.
Perl позволяет осуществлять доступ к различным СУБД. Здесь будет освещен вопрос доступа к СУБД Oracle.
6.2.1 Взаимодействие с Oracle 6.2.1.1 Основные функции доступаМы приведем здесь пример программы, которая создает таблицу, помещает в нее некоторые данные и потом производит выборку строк из этой таблицы.
#!/usr/local/bin/perluse 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);# помещение строки в таблицуВ результате в базе создалась таблица из двух столбцов с одной записью: