Chapay в 16:17, 28 января 2013

Chapay — Mon, 28 Jan 2013 16:17:41 GMT

← Предыдущая		Версия 16:17, 28 января 2013
Строка 6:		Строка 6:
	[http://en.wikipedia.org/wiki/Open_Database_Connectivity ODBC] - это всего лишь программный интерфейс, который призван был унифицировать и в том числе облегчить различным программам (из различных операционных систем) обмен информацией с базами данных. Сам по себе ODBC интерфейс ничего не знает о том, какой порт используется, какой протокол при обращении к той или иной базе, этим занимается исключительно драйвер, который имеет поддержку ODBC и описан в его настройках.		[http://en.wikipedia.org/wiki/Open_Database_Connectivity ODBC] - это всего лишь программный интерфейс, который призван был унифицировать и в том числе облегчить различным программам (из различных операционных систем) обмен информацией с базами данных. Сам по себе ODBC интерфейс ничего не знает о том, какой порт используется, какой протокол при обращении к той или иной базе, этим занимается исключительно драйвер, который имеет поддержку ODBC и описан в его настройках.

-	В UNIX системах имеется несколько реализаций ODBC, наиболее популярные реализации [http://www.unixodbc.org unixODBC] и [http://www.iodbc.org/ iODBC]. unixODBC обычно установлен на серверах хостинга, однако если его нет, то вы можете его поставить самостоятельно в свой домашний каталог, либо обратитесь к [~~https~~://www.1gb.ru/about_support.php поддерже].	+	В UNIX системах имеется несколько реализаций ODBC, наиболее популярные реализации [http://www.unixodbc.org unixODBC] и [http://www.iodbc.org/ iODBC]. unixODBC обычно установлен на серверах хостинга, однако если его нет, то вы можете его поставить самостоятельно в свой домашний каталог, либо обратитесь к [http://www.1gb.ua/about_support.php поддерже].

	Проверяется наличие ODBC так:		Проверяется наличие ODBC так:

Renton: /* Проверка подключения из Perl */

Renton — Mon, 09 Aug 2010 17:31:15 GMT

Проверка подключения из Perl

Новая статья

== Общие сведения ==
В статье пойдет речь о нескольких способах подключения к базам данных MS SQL Server из Perl на виртуальном UNIX-хостинге 1Gb.ru
При этом вы должны уметь подлючаться к серверу по SSH и самостоятельно устанавливать различные модули Perl. Собственно, статья объясняет не только создание подключения из Perl, а в большей степени обращение к MS SQL Server из операционной системы UNIX в целом.

== ODBC ==
[http://en.wikipedia.org/wiki/Open_Database_Connectivity ODBC] - это всего лишь программный интерфейс, который призван был унифицировать и в том числе облегчить различным программам (из различных операционных систем) обмен информацией с базами данных. Сам по себе ODBC интерфейс ничего не знает о том, какой порт используется, какой протокол при обращении к той или иной базе, этим занимается исключительно драйвер, который имеет поддержку ODBC и описан в его настройках.

В UNIX системах имеется несколько реализаций ODBC, наиболее популярные реализации [http://www.unixodbc.org unixODBC] и [http://www.iodbc.org/ iODBC]. unixODBC обычно установлен на серверах хостинга, однако если его нет, то вы можете его поставить самостоятельно в свой домашний каталог, либо обратитесь к [https://www.1gb.ru/about_support.php поддерже].

Проверяется наличие ODBC так:
$ odbc_config --version

Также существует и несколько драйверов с поддержой ODBC для работы с MS SQL Server, есть платные, есть и бесплатные. Лучшим бесплатным драйвером для UNIX'а уже давно принято считать [http://www.freetds.org/ FreeTDS] (установлен по-умолчанию на всех серверах хостинга 1Gb.ru). Именно на его основе и пойдет дальнейшее изложение настройки подключения.

=== Настройка ===
* Подготовим переменные окружения, для того, чтобы файлы настроек сохранялись в домашнем каталоге, а не в <code>/etc</code> или еще где.
echo 'export ODBCSYSINI=$HOME' >> ~/.bashrc
echo 'export ODBCINI=$HOME/.odbc.ini' >> ~/.bashrc
source ~/.bashrc

* Создадим конфигурацию драйвера, который и будет выполнять подключение к БД, для этого создайте с помощью вашего любимого редактора, файл шаблона с любым именем (например, <code>tds.driver.tmpl</code>) примерно такого содержания:

[FreeTDS]
Description = FreeTDS driver (MS SQL)
Driver = /usr/lib/libtdsodbc.so
<code>['''FreeTDS''']</code> - это просто имя для драйвера, можете придумать что-то свое 
<code>Description</code> - описание, может быть любым; исключительно для удобства; 
<code>Driver</code> - важная строка, содержит полный путь к драйверу; 

Сгенерируем файл описания драйвера на основе нашего шаблона:
odbcinst -i -d -f tds.driver.tmpl
<code>-i</code> - записать сведения о драйвере в <code>odbcinst.ini</code>; 
<code>-d</code> - сведения должны быть о драйвере; 
<code>-f</code> - использовать файл шаблона; 

В случае успешной установки, команда напишет следующее:
odbcinst: Driver installed. Usage count increased to 1.
Target directory is /home/virtwww/...

Также появится файл <code>odbcinst.ini</code>
$ cat ~/odbcinst.ini
[FreeTDS]
Description=FreeTDS driver (MS SQL)
Driver=/usr/lib/libtdsodbc.so
UsageCount=1

* Теперь опишем наше соединение, <code>DSN</code>.
Аналогично делаем файл шаблона <code>tds.dsn.tmpl</code>, его содержимое:
[MSSQL]
Driver = FreeTDS
Description = ODBC via FreeTDS
Trace = No
Server = ms-sql-4.in-solve.ru
Port = 1433
Database = 1gb_dmih222
<code>['''MSSQL''']</code> - название соединения, может быть все что угодно, именно это имя будет затем использоваться для установления соединения; 
<code>Description</code> - описание, может быть любым; исключительно для удобства; 
<code>'''Driver'''</code> - важное поле, это название драйвера, который мы описали в файле <code>odbcinst.ini</code> 

Генерируем файл <code>.odbc.ini</code>:
$ odbcinst -i -s -f tds.dsn.tmpl
<code>-s</code> - сведения должны быть о соединении; 
Команда не выводит никакой информации, однако, успешным результатом ее работы будет создание файла <code>~/.odbc.ini</code>
$ cat ~/.odbc.ini
[MSSQL]
Driver=FreeTDS
Description=ODBC via FreeTDS
Trace=No
Server=ms-sql-4.in-solve.ru
Port=1433
Database=1gb_dmih222

* Удаляем мусор:
$ rm ~/tds.driver.tmpl; rm ~/tds.dsn.tmpl

=== Проверка подключения ===

* Проверку делаем через консольную утилиту <code>isql</code>
isql -v MSSQL логин пароль
<code>MSSQL</code> - имя подключения; 
<code>логин</code> - логин к базе данных; 
<code>пароль</code> - пароль к базе данных; 

В случае успешного подключения, вы увидите примерно следующее:
+---------------------------------------+
| Connected! |
| |
| sql-statement |
| help [tablename] |
| quit |
| |
+---------------------------------------+
SQL>

можно какой-нибудь и SQL-запрос туда написать ;)

=== Настройка Perl (установка модулей) ===

* Для того, чтобы Perl скрипты могли обращаться к драйверу FreeTDS через интерфейс ODBC, мы будем использовать модуль Perl DBD::ODBC, собственно, и реализующий эту возможность. DBD::ODBC также основан на архитектуре DBI, поэтому проверим, что все необходимые модули у нас есть:

$ perl -e 'use DBI;'
$ perl -e 'use DBD::ODBC;'
если модуля нет, то поставьте его.

''Примечание.'' Посмотреть список всех модулей поддерживающих интерфейс DBI можно так:
$ perl -MDBI -e 'DBI->installed_versions;'

Если все модули на месте или их установка прошла успешно, то можно переходить к тестированию.

=== Проверка подключения из Perl ===

Создадим простой скрипт <code>mssql_connect.pl</code>:
#!/usr/bin/perl -w

use strict;
use DBI;

$ENV{'ODBCSYSINI'} = "$ENV{'HOME'}";
$ENV{'ODBCINI'} = "$ENV{'HOME'}/.odbc.ini";

my $data_source = q/dbi:ODBC:'''имя_подключения'''/;
my $user = q/логин/;
my $password = q/пароль/;

my $dbh = DBI->connect($data_source, $user, $password)
or die "Can't connect to $data_source: $DBI::errstr";

print "Connecting to the database was successful\n" if ($dbh);

$dbh->disconnect;

<code>имя_подключения</code> - имя из квадратных скобок из файла ~/.odbc.ini, т.е. в нашем примере это '''MSSQL'''; 

и сама проверка:
$ perl mssql_connect.pl
Connecting to the database was successful

== Native connection ==
Как правило, это обращение к драйверу и использование его возможностей напрямую, без каких-либо иных высокоуровневых интерфейсов. В используемом нами драйвере FreeTDS существует поддержка открыторго API CTLIB, разработанного компанией [http://www.sybase.com/ Sybase], его мы и будем использовать.

В Perl интерфейс CTLIB реализован в модуле [http://search.cpan.org/dist/DBD-Sybase/Sybase.pm DBD::Sybase]

=== Настройка окружения, установка модулей ===

* Проверим, есть ли нужные нам модули:
$ perl -e 'use DBI;'
$ perl -e 'use DBD::Sybase;'
если нет, то поставим их.

Для того, чтобы поставить модуль DBD::Sybase, мы должны сообщить, где расположен драйвер:
$ echo 'export SYBASE=/usr' >> ~/.bashrc
$ source ~/.bashrc
и далее уже ставим модуль, либо через CPAN, либо используя Makefile, кому как удобнее. 

----
''Примечание 1.'' Так как используется общесистемный драйвер, расположенный по стандартному пути, то делать это не обязательно. Однако не забудьте добавить правильный путь, если вы используете свой драйвер, установленный в домашний каталог. 

''Примечание 2.'' Если вы ставите модуль через CPAN-шелл, то используйте команду <code>'''force install DBD::Sybase'''</code>, дабы избежать ненужных тестов.
----

* В файле <code>~/.freetds.conf</code> опишем наше подключение:
[MYMSSQL]
host = ms-sql-4.in-solve.ru
port = 1433
<code>['''MYMSSQL''']</code> - это имя, которое мы будем использовать в скриптах при подключении к серверу; 

=== Проверка подключения из Perl ===

* Создадим скрипт <code>mssql_connect2.pl</code> с таким содержимым:
#!/usr/bin/perl -w

use strict;
use DBI;
$ENV{'SYBASE'} = "/usr";

my $data_source = q/dbi:Sybase:'''MYMSSQL'''/;
my $user = q/'''логин'''/;
my $password = q/'''пароль'''/;

my $dbh = DBI->connect($data_source, $user, $password)
or die "Can't connect to $data_source: $DBI::errstr";

print "Connecting to the database was successful\n" if ($dbh);

$dbh->disconnect;

<code>'''MYMSSQL'''</code> - это имя подключения из файла <code>~/.freetds.conf</code> 

* Проверка:
$ perl mssql_connect2.pl
Connecting to the database was successful

== См. также ==
* [[Юникс шелл]]
* [[Установка модулей Perl]]

== Ссылки ==
* [http://en.wikipedia.org/wiki/Odbc ODBC] (англ.) - описание интерфейса ODBC на сайте wikipedia.org.
* [http://www.unixodbc.org/ unixODBC] (англ.) - официальная страница unixODBC, документация, примеры настроек и пр.
* [http://www.freetds.org/ FreeTDS] (англ.) - официальная страница проекта FreeTDS, документация, подробные примеры.
* [http://www.easysoft.com/developer/interfaces/odbc/linux.html Linux/UNIX ODBC] (англ.) - хорошая документация по описанию и работе с ODBC в UNIX'е.
* [http://www.easysoft.com/ Easysoft - платные ODBC драйверы] (англ.) - официальный сайт компании, разрабатывающие платные ODBC драйверы для всевозможных операционных систем, также присутствует огромное количество документации.

[[Категория:UNIX]]
[[Категория:Perl]]
[[Категория:Программирование]]

Подключение к MS SQL Server из Perl - История изменений

Chapay в 16:17, 28 января 2013

Renton: /* Проверка подключения из Perl */