Читать доклад по информатике, вычислительной технике, телекоммуникациям: "Использование языка Perl" Страница 1

(Назад) (Cкачать работу)

Использование языка 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.

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

#!/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)

Для того, чтобы получить доступ к информации, хранимой в Oracle необходимо сначала войти в систему. Это осуществляется вызовом функции &ora_login(). Эта функция имеет три параметра: системный идентификатор базы данных, имя пользователя в базе и пароль пользователя. Возвращается идентификатор регистрации в системе (Oracle Login Data Area). Несколько доступов могут осуществляться одновременно.

Похожие работы