![[LinuxFocus-icon]](../../common/images/logolftop_319x45.gif){kind=small} |
|
|
 |
|
![[Photo of the Author]](../../common/images2/DiegoAlbertoAriasPrad.jpg)
автор Diego Alberto Arias Prad <dariapra(at)yahoo.es> Об авторе:
Я работаю инженером в области телекоммуникаций в Lugo, Испания. Точно не помню когда я начал
использовать Linux, предполагаю, что это произошло в 1995 или 1996 году. До этого момента
я использовал Microsoft Windows и даже не знал о существовании Linux. Впервые увидел компьютер
с Linux в университете и меня заинтересовала эта операционная система, после этого я установил
Linux на свой домашний компьютер. Первым моим дистрибутивом был Slackware.
Перевод на Русский: Pukhlyakov Kirill <kirill(at)linuxfocus.org> Содержание:
|
Знакомство с библиотекой TclMySQL
Резюме:
В заметке мы рассмотрим как установить и пользоваться библиотекой MySQLTcl, это библиотека
языка Tcl для работы с СУБД MySQL из скриптов, написанных на нем. Версии
Tcl, MySQL и библиотеки MySQLTcl использованные для написания заметки соответственно
8.4.2, 4.0.15 и 2.40.
|
Если Ваша Linux или *BSD система поддерживает пакеты ( напрмер RPM или DEB ) или порты как
Crux Linux или FreeBSD,
Вы можете использовать их для установки библиотеки MySQLTcl и пропустить этот раздел.
Если это не так или Вы просто предпочитаете устанавливать все "руками", я продемонстрирую Вам
как это делал сам. Вы можете использовать это как инструкцию, но не как пошаговое руководство
установки. Используя bash дистрибутива Linux Mandrake
версии 9.2 делаем следующее:
$ ./configure --with-mysql-lib=/usr/lib $ make $ make install |
$ export CPP=/usr/bin/cpp $ ./configure --with-tcl=/usr/lib/local/tcl8.3 --with-tclinclude=/usr/local/include/tcl8.3 --with-mysql-include=/usr/local/include/mysql --with-mysql-lib=/usr/local/lib/mysql $ make $ make install |
В этом разделе рассмотрим основы Tcl для тех, кому интересна данная заметка, но они не
знакомы с ним. Если Вы программируете на Tcl - можете пропустить этот раздел.
Вы можете потренироваться на этих примерах из оболочки Tcl (tclsh).
Переменные Tcl создаются с помощью команды set. Рассмотрим несколько примеров:
% set address {Edison Avenue, 83}
Edison Avenue, 83
% set zip_code 48631
48631
|
% set address Edison Avenue, 83 % set zip_code 48631Чтобы вывести значение переменной address на экран воспользуемся командой puts:
% puts stdout [set address] Edison Avenue, 83Параметр stdout передаваемый команде puts служит для указания вывода в стандартный поток вывода - на экран. Второй передаваемый параметр команде puts это [set address]. Квадратные скобки указывают интерпретатору Tcl, что это другая команда языка Tcl, которая должна быть выполнена перед командой puts - это называется подстановка команд. То же самое можно сделать следующим образом:
% puts stdout $address Edison Avenue, 83В этом примере мы выполнили подстановку переменной: символ $ перед переменной указывает на это.
% puts stdout "the zip code is [set address]"
the zip code is 48631
% puts stdout "the zip code is $address"
the zip code is 48631
% puts stdout {the zip code is [set address]}
the zip code is [set address]
% puts stdout {the zip code is $address}
the zip code is $address
Здесь видно, что при использовании фигурных скобок подстановки переменных не происходит,
но происходит при использовании кавычек.
% unset address % set address can't read "address": no such variable % unset zip_code % set zip_code can't read "zip_code": no such variable
Строки являются одним из трех основных типов данных в Tcl. Строка - это набор символов.
Строка создается с помощью команды set.
% set surname Westmoreland Westmoreland % set number 46.625 46.625Обе переменные - surname и number имеют тип строка. Работать с переменными этого типа можно командой string. Синтаксис этой команды следующий - string операция значение другие_аргументы. Поясним примерами:
% string length $surname 12 % set surname [string range $surname 0 3] West % puts stdout $surname West % string tolower $surname westВ отличие от Java или Pascal Tcl не очень строгий язык программирования. Следующий пример демонстрирует это:
% set number [expr $number + 24.5] 70.125 % string range $number 2 5 .125С помощью команды expr мы увеличили значение переменной number на 24.5. После этого мы представили переменную number строковой и с помощью команды string вывели последние четыре символа.
Списки в Tcl являются разновидностью строк, которые разделены пробелом и интерпретируется
соответственное по-своему.
% set friends_list {Fany John Lisa Jack Michael}
Fany John Lisa Jack Michael
% set friends_list [string tolower $friends_list]
fany john lisa jack michael
% set friends_list
fany john lisa jack michael
В Tcl существует набор команд для работы со строками. Рассмотрим несколько примеров:
% lindex 2 $friends_list lisa % lrange $friends_list 2 4 lisa jack michael % set friends_list [lsort -ascii $friends_list] fany jack john lisa michael % set friends_list fany jack john lisa michael % set friends_list [linsert $friends_list 2 Peter] fany jack Peter john lisa michael % string toupper $friends_list FANY JACK PETER JOHN LISA MICHAELИз последнего примера видно, что строки и списки имеют одинаковую структуру.
Массив можно рассматривать особым видом списка с индексом в качестве которого
выступает переменная типа "строка". Рассмотрим пример создания массива:
% set phone_numbers(fany) 629 629 % set phone_numbers(michael) 513 513 % set phone_numbers(john) 286 286Получить значение из массива можно используя команду set как и в предыдущем примере, индекс заключается в круглые скобки.
% set $phone_numers(michael) 513Информацию о массиве можно получить с помощью команды array. Рассмотрим несколько примеров использования данной команды:
% array size phone_numbers 3 % array names phone_numbers fany john michael
Для того чтобы выполнять запросы к базе данных из скриптов Tcl сначала надо установить соединение с сервером баз данных. В этой части заметки мы рассмотрим этот вопрос, а также обработку ошибок, которые могут возникнуть в процессе соединения.
Рассмотрим пример подключения к серверу MySQL из Tcl скрипта:
0: #!/usr/bin/tclsh8.4
1:
2: package require mysqltcl
3: global mysqlstatus
4:
5: set port {3306}
6: set host {127.0.0.1}
7: set user {john_smith}
8: set password {jsmith_password}
9:
10: set mysql_handler [mysqlconnect -host $host
-port $port -user $user -password $password]
11:
12: mysqlclose $mysql_handler
Обратите внимание на левую колонку цифр - они не являются частью нашего скрипта, таким образом
мы просто пронумеровали строки. Также, в зависимости от используемого вами дистрибутива
Linux, вам возможно придется поменять строку #0, указывающую путь к Tcl shell.
В предыдущей части мы не рассмотрели строку #3. Сделаем это сейчас.
Выполнение команд библиотеки MySQLTcl может вызывать ошибки. Если мы не поймаем эту ошибку,
скрипт может прекратить свою работу. Поменяем немного наш скрипт следующим образом:
10: if [catch {mysqlconnect -host $host -port $port
-user $user -password $password} mysql_handler] {
11: puts stderr {error, the database connection could not be established}
12: exit
13: } else {
14: mysqlclose mysql_handler
15: }
Если команда set mysql_handler [mysqlconnect -host $host... вызовет ошибку - она будет
перехвачена командой catch. Команда catch возвращает 1 в случае возникновения
ошибки и 0 в противоположном.
| элемент | значение |
| code |
Если ошибка не произошла mysqlstatus(code) равен нулю, в противном услучае
устанавливается в код ошибки сервера MySQL. Если ошибка возникла, но не является ошибкой
MySQL, то значение mysqlstatus(code) устанавливается в -1.
Значение mysqlstatus(code) обновляется после каждого использования команды библиотеки MySQLTcl. |
| command |
Команда библиотеки MySQLTcl, выполнение которой породило ошибку, сохраняется в
mysqlstatus(command).
Значение mysqlstatus(command) обновляется после каждой команды вызвавшей ошибку, другими словами - mysqlstatus(command) не обновляется после успешной команды. |
| message | Значение mysqltcl(message) обновляется после каждой команды вызвавшей ошибку и заполняется сообщением об ошибке. Также как и mysqlstatus(command), mysqlstatus(message) не обновляется после успешной команды. |
| элемент | значение |
| nullvalue | Строка, используемая для значения null как результата выполнения SQL запроса. По умолчанию используется пустая строка; musqlstatus(nullvalue) может быть установлена в любое строковое значение. |
10: catch {mysqlconnect -host $host -port $port
-user $user -password $password} mysql_handler
11: if {$mysqltatus(code) != 0} {
12: puts stderr $mysqlstatus(message)
13: } else {
14: mysqlclose mysql_handler
15: }
Глобальный массив mysqlstatus можно использовать для обработки большего числа ошибок,
не только при установлении соединения с бд.
В этой части рассмотрим основные команды библиотеки MySQLTcl и некоторые примеры их
использования. Полную информацию по данному вопросу смотрите на man странице MySQLTcl.
Сначала приведем таблицу с данными командами. Параметры подчеркнуты. Если параметр стоит между
"?" - он опциональный, символ "|" обозначает "или".
| команда | краткое описание |
| mysqlconnect ?option value ...? | подключение к бд; возвращает handler, который необходимо использовать в других командах mysqltcl |
| mysqluse handle dbname | ассоциирует MySQL handler с определенной бд |
| mysqsel handle sql_statement ?-list | -flatlist? | отправка SQL команды в бд |
| mysqlexec handle sql_statement | отправка не_select SQL команды в бд |
| mysqlclose handle | закрытие соединения с бд |
Эту команду мы уже обсуждали в разделе "Соединение с сервером бд", но есть один момент,
который мы не затронули - параметр -db, он нужен для привязки определенной бд для
последующего использования. Посмотрим пример:
% set mysql_handler [mysqlconnect -h 127.0.0.1 -p 3306 \\ -user john_smith -password jsmith_password -db jsmith_database]В этом случае при последующем использовании mysql_handler запросы будут будут направлены в бд jsmith_database.
Команда служит для смены бд ассоциированной с handler'ом, бд указывается первым параметром.
С помощью данной команды посылается SQL select запрос в бд. если параметр sql_statement
не является SQL select запросом - произойдет ошибка.
Можно использовать в этой команде третий ( опциональный ) параметр - list или flat_list.
Посмотрим на примере что происходит с выводом, при использовании этого параметра. Предположим
в бд есть таблица people:
| id | first_name | last_ name | phone |
| 26 | Karl | Bauer | 8245 |
| 47 | James | Brooks | 1093 |
| 61 | Roberto | Castro Portela | 6507 |
% mysqlsel $mysql_handler {select first_name, last_name from people order by id asc} -list
{Karl Bauer} {James Brooks} {Roberto {Castro Portela}}
% mysqlsel $mysql_handler {select first_name, last_name from people order by id asc} -flatlist
Karl Bauer James Brooks Roberto {Castro Portela}
В первом случае (-list parameter) команда возвращает список, элементы которого списки.
Во втором случае (-flatlist parameter) команда возвращает список, элементы которого
идут все вместе.
% mysqlsel $mysql_handler {select first_name, last_name from people order by id asc}
3
С помощью команды mysqlexec можно послать не_select SQL запрос в бд. Если с помощью
этой команды вы пошлете select SQL запрос - ошибки не произойдет, но и ничего не будет сделано.
Посмотрим еще раз на предыдущий пример:
% mysqlexec $mysql_handler {delete from people where id=26}
1
% mysqlsel $mysql_handler {select first_name, last_name, phone from people order by id asc} -list
{James Brooks 1093} {Roberto {Castro Portela} 6507}
% mysqlexec $mysql_handler \\
{insert into people (id, first_name, last_name, phone) values (58, "Carla", "di Bella", 8925)}
1
% mysqlsel $mysql_handler {select first_name, last_name, phone from people order by id asc} -list
{James Brooks 1093} {Carla {di Bella} 8925} {Roberto {Castro Portela} 6507}
Естественно SQL запросы отличные от delete или insert могут быть посланы с помощью этой команды.
Например update данных:
% mysqlexec $mysql_handler {update people set phone=3749 where first_name="James"}
1
% mysqlsel $mysql_handler {select first_name, last_name, phone from people order by id asc} -list
{James Brooks 3749} {Carla {di Bella} 8925} {Roberto {Castro Portela} 6507}
Результатом работы команды mysqlexec является число строк, которые были обработаны
не_select SQL запросом.
Команда mysqlclose закрывает соединение с бд. Параметром этой команды является MySQL handler соединения, которое мы хотим закрыть.
Набор команд библиотеки MySQLTcl не ограничивается рассмотренными выше - есть команды для получения информации о бд, обработки строк для использования в запросах, создания вложенных запросов. Правильным местом для изучения библиотеки MySQLTcl является ее man страница.
[1] a slightly skeptical view on John K. Ousterhout and Tcl:
http://www.softpanorama.org/People/Ousterhout/index.shtml
[2] Руководство по регулярным выражениям Tcl:
http://www.mapfree.com/sbf/tcl/book/select/Html/7.html
TclTutor - бесплатное приложение для изучения Tcl:
http://www.msen.com/~clif/TclTutor.html
Документация MySQL в разных форматах ( HTML, PDF... ):
http://www.mysql.com/documentation/index.html
|
|
Webpages maintained by the LinuxFocus Editor team
© Diego Alberto Arias Prad, FDL LinuxFocus.org |
Translation information:
|
2004-04-23, generated by lfparser version 2.43