Introducción a la biblioteca TclMySQL

ArticleCategory: Software Development

AuthorImage:[Here we need a little image from you]

TranslationInfo:[Author + translation history. mailto: or http://homepage]

original in en Diego Alberto Arias Prado

en to es Diego Alberto Arias Prado

AboutTheAuthor:[A small biography about the author]

Soy un ingeniero de Telecomunicación de Lugo, España. No recuerdo exactamente cuándo empecé a utilizar Linux, fue en 1995 ó 1996. Antes era un usuario de Microsoft Windows y ni siquiera sabía de la existencia de Linux. La primera vez que vi un ordenador con sistema operativo Linux instalado fue en la universidad. Me pareció muy interesante y no tardé en instalarlo en mi ordenador en casa; recuerdo que mi primera distribución Linux fue Slackware.

Durante todos estos años me he divertido mucho utilizando otras distribuciones Linux y algunas versiones de BSD, programando en lenguajes como Java o Tcl, utilizando servidores de web, de bases de datos, de aplicaciones... Linux no ha sido sólo para mí una forma de divertirme ya que he tenido la opotunidad de utilizar Linux cuando trabajé en Telefónica I+D.

Abstract: [Here you write a little summary]

ArticleIllustration:[One image that will end up at the top of the article]

ArticleBody:[The main part of the article]

Instalación de la biblioteca MySQLTcl

Si su distribución Linux o sistema operativo BSD utiliza un sistema de paquetes (como por ejemplo RPM o DEB) o un sistema de ports (como por ejemplo Crux Linux o FreeBSD), puede usar el sistema de paquetes o ports para instalar la biblioteca MySQLTcl y pasar así a la siguiente sección.

Si no es así o, simplemente, prefiere hacer la instalación de forma manual, en las siguientes líneas se muestran los pasos que hemos seguido. En vez de un pequeño manual que muestra paso a paso cómo hacer la instalación, estas líneas deben leerse como una especie de pequeña guía. En una distribución Linux Mandrake (version 9.2), desde bash:

$ ./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

Rudimentos de Tcl

En esta sección se muestran de forma somera los rudimentos de Tcl a lectores que no sepan utilizar este lenguaje de programación. Si usted ya sabe programar en Tcl, puede pasar a la siguiente sección.

Los ejemplos mostrados en esta sección (y también en las demás) pueden ser reproducidos desde una consola Tcl (tclsh).

Variables. Substitución de variables y comandos.

En Tcl las variables se crean con el comando set. Veamos algunos ejemplos:

% set address {Edison Avenue, 83}
Edison Avenue, 83
% set zip_code 48631
48631

% set address
Edison Avenue, 83
% set zip_code
48631

% puts stdout [set address]
Edison Avenue, 83

% 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

Cadenas en Tcl

La cadena (string) es una de las tres estructuras de datos básicas en Tcl. Una cadena es un conjunto de caracteres. Para crear una cadena se puede utilizar el comando set.

% set surname Westmoreland
Westmoreland
% set number 46.625
46.625

% string length $surname
12
% set surname [string range $surname 0 3]
West
% puts stdout $surname
West
% string tolower $surname
west

% set number [expr $number + 24.5]
70.125
% string range $number 2 5
.125

Listas en Tcl

En Tcl, las listas (lists) son un caso especial de cadenas en las que los elementos de la lista están separados por espacios en blanco y que, además, tienen una interpretación distinta.

% 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

% 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

Arrays en Tcl

Un array Tcl se puede ver como una lista cuyos índices son, a su vez, cadenas. Un array se puede crear como se muestra en el siguiente ejemplo:

% set phone_numbers(fany) 629
629
% set phone_numbers(michael) 513
513
% set phone_numbers(john) 286
286

% set $phone_numers(michael)
513

% array size phone_numbers
3
% array names phone_numbers
fany john michael

Conexiones a bases de datos

Antes de hacer cualquier consulta a una base de datos desde un script Tcl, es necesario establecer una conexión a un servidor de bases de datos. En esta sección veremos cómo se hace y qué hacer con los errores que se pueden dar al intentar establecer dichas conexiones.

De ahora en adelante se utilizarán indistintmente los términos "conexión a bases de datos" y "conexión a servidores de bases de datos".

Estableciendo una conexión a una base de datos

Veamos el ejemplo de un script Tcl que establece una conexión con un servidor de bases de datos MySQL.

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

Manejo de los errores

En la anterior subsección no se explicó qué hacía la línea número 3; lo haremos en ésta.

Al ejecutarse los comandos de la biblioteca MySQLTcl pueden aparecer errores. Si dichos errores no son capturados (caught), la ejecución del script Tcl se detendrá y es posible que eso no nos interese.

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: }

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: }

Comandos básicos de la biblioteca MySQLTcl

En esta sección se muestra el uso de los comando más básicos de la biblioteca MySQLTcl con algunos ejemplos. Para mayor información, consulte la página man de la biblioteca MySQLTcl.
Los comandos cuyo uso se muestra en esta sección son los que aparecen en la siguiente tabla. Los parámetros están subrayados. Si un parámetro se muestra entre dos símbolos ?, significa que es opcional; el caracter | significa o lógico (or).

comando	breve descripción
mysqlconnect ?option value ...?	establece una conexión con un servidor de bases de datos; devuelve un handler que debe ser utilizado por otros comandos de la biblioteca MySQLTcl
mysqluse handle dbname	asocia un handler MySQL con la base de datos especificada por dbname
mysqsel handle consulta_sql ?-list | -flatlist?	envía una consulta SQL a una base de datos
mysqlexec handle sql_statement	envía una consulta SQL distinta de select a una base de datos
mysqlclose handle	cierra una conexión establecida a un servidor de bases de datos

mysqlconnect

El uso de este comando ya fue tratado en la sección "Estableciendo una conexión a una base de datos". Este comando acepta un parámetro extra no mostrado antes: -db. Con el parámetro -db se fija la base de datos que será objeto - o dicho de otra forma, base de datos asoaciada al handler - de futuras consultas SQL. Veamos un ejemplo:

% set mysql_handler [mysqlconnect -h 127.0.0.1 -p 3306 \\
  -user john_smith -password jsmith_password -db jsmith_database]

mysqluse

Este comando permite cambiar la base de datos asociada del handler MySQL que este comando recibe como primer parámetro.

mysqlsel

Este comando envía una consulta SQL a la base de datos asociada al handler MySQL que este comando recibe como primer parámetro. Si el parámetro sql_statement no es una consulta SQL select, se producirá un error.

Hay un tercer parámetro opcional, que puede ser list o flat_list. Veamos con un ejemplo cómo afecta este parámetro a la salida de este comando. Supongamos que la base de datos asociada con el handler MySQL contiene una tabla como la mostrada a continuación:

id	first_name	last_ name	phone
26	Karl	Bauer	8245
47	James	Brooks	1093
61	Roberto	Castro Portela	6507

Utilizamos el comando mysqlsel para enviar una consulta SQL a la base de datos:

% 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}

% mysqlsel $mysql_handler {select first_name, last_name from people order by id asc}
3

mysqlexec

El comando mysqlexec envía una consulta SQL que no es select a la base de datos asociada con el handler que el comando recibe como primer parámetro. Si el parámetro sql_statement es una consulta SQL select no se producirá ningún error, pero tampoco el comando hará nada.

Supongamos que tenemos el ejemplo mostrado en la anterior subsección:

% 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}

% 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}

mysqlclose

Como se vio con anteriodad, el comando mysqlclose cierra una conexión ya establecida a una base de datos. Este comando recibe un parámetro, el handler MySQL de la conexión que se quiere cerrar.

Otros comandos de la biblioteca MySQLTcl

La biblioteca MySQLTcl tiene más comandos que los vistos en esta sección. Estos comandos permiten obtener información sobre las propias bases de datos, transformar (escaping) cadenas para hacerlas aptas ser parte de consultas SQL, hacer consultas SQL anidadas... Una buena referencia es la propia página man de MySQLTcl, que es parte de la instalación de esta biblioteca.

Referencias

[1] una visión ligeramente escéptica sobre John K. Ousterhout y Tcl (en inglés):
http://www.softpanorama.org/People/Ousterhout/index.shtml

[2] tutorial sobre las expresiones regulares en Tcl (en inglés):
http://www.mapfree.com/sbf/tcl/book/select/Html/7.html

TclTutor es una aplicación gratuíta e interactiva para aprender Tcl (en inglés):
http://www.msen.com/~clif/TclTutor.html

documentación de MySQL, en varios formatos (HTML, PDF... ) e idiomas:
http://www.mysql.com/documentation/index.html