![[LinuxFocus-icon]](../../common/images/logolftop_319x45.gif){kind=small} |
|
|
 |
|
| Este documento está disponible en los siguientes idiomas: English Castellano ChineseGB Deutsch Francais Nederlands Russian Turkce |
![[Photo of the Author]](../../common/images2/DiegoAlbertoAriasPrad.jpg)
por Diego Alberto Arias Prado <dariapra(at)yahoo.es> Sobre el autor:
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.
Traducido al español por: Diego Alberto Arias Prado <dariapra(at)yahoo.es> Contenidos:
|
Introducción a la biblioteca TclMySQL
Resumen:
En este artículo se muestra la instalación y uso de MySQLTcl, una biblioteca del lenguaje de programación Tcl que permite hacer consultas SQL - en inglés, queries - (select, insert, delete...) desde scripts Tcl a servidores de bases de datos MySQL.
|
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 installSi algo ha ido mal durante el paso "configure", los mensajes de error le darán información que le ayudará a resolver el problema. Es frecuente que éste consista en que el script no consigue encontrar algunos ficheros o directorios. En casos como éste, la solución consiste en "jugar" con este script pasándole parámetros que le indiquen dónde puede encontrar esos ficheros y directorios "perdidos". Veamos otro ejemplo de instalación. En FreeBSD 5.0 la biblioteca MySQLTcl se puede instalar con las siguientes opciones:
$ 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 installComo habrá notado, en este segundo ejemplo la versión de Tcl era 8.3; además, la versión de la biblioteca MySQLTcl era 2.15 y la versión del servidor de bases de datos MySQL era 3.23.54.
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).
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
En estos dos ejemplos hemos creado dos variables, llamadas address y zip_code. Los valores que estas variables contienen son, respectivamente, Edison Avenue y 48361; ambos valores son cadenas (strings). Nótese que para la creación de la variable address se han utilizado llaves (caracteres { y }); esto es así porque dicha cadena contiene espacios. Los valores de las variables se pueden obtener utilizando también el comando set:
% set address Edison Avenue, 83 % set zip_code 48631Supongamos que queremos imprimir en pantalla el valor de la variable address. Esto se puede hacer utilizando el comando puts:
% puts stdout [set address] Edison Avenue, 83El comando puts recibe el parámetro stdout. Este parámetro indica al comando puts que debe imprimir en la salida standard (en inglés, standard output), que en nuestro caso es el monitor. El segundo parámetro que recibe el comando puts es [set address]. Los corchetes (caracteres [ y ]) de este parámetro indican al intérprete Tcl que lo que hay dentro es otro comando Tcl que debe ser ejecutado por el intérprete Tcl antes de que lo sea el comando puts; esto recibe el nombre de substitución de comandos. Lo hecho en el anterior ejemplo se puede hacer también de otra forma:
% puts stdout $address Edison Avenue, 83Lo que se ha hecho en este ejemplo se llama substitución de variable: el caracter $ que precede a un nombre de variable hace que dicha substitución ocurra.
% 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
En este ejemplo se puede ver como al utilizar llaves para formar una agrupación no se hace substitución de comandos; sin embargo, esto sí ocurre si se utilizan comillas para formar dicha agrupación.
% 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
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.625Tanto la variable surname como la variable number son cadenas. Para manipular cadenas se utiliza el comando string. Veamos algunos ejemplos que muestran cómo se puede utilizar este comando:
% string length $surname 12 % set surname [string range $surname 0 3] West % puts stdout $surname West % string tolower $surname westA diferencia de Pascal o Java, Tcl no es lenguaje de programación de "tipos fuertes". El siguiente ejemplo es una muestra de ello:
% set number [expr $number + 24.5] 70.125 % string range $number 2 5 .125Con el comando expr, el valor de la variable number fue incrementado en 24,5. A continuación, con el comando string, la variable number fue tratadada como si fuese una cadena, siendo mostrados sus cuatro últimos caracteres.
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
En Tcl hay varios comandos que permiten manipular las listas. Veamos algunos ejemplos:
% 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 MICHAELEl último ejemplo muestra que cadenas (strings) y listas (lists) en el fondo son la misma estructura de datos.
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 286Los valores del array se pueden mostrar utilizando conjuntamente el comando set y substitución de variables; como se mostró en el anterior ejemplo, el índice del array - que es una cadena - está entre paréntesis:
% set $phone_numers(michael) 513El comando array muestra información sobre una variable de tipo array. Veamos algunos ejemplos que muestran qué se puede hacer con este comando:
% array size phone_numbers 3 % array names phone_numbers fany john michael
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".
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
Nótese que los números mostrados en la columna izquierda junto con los dos puntos a continuación no son parte del script Tcl; se muestran para numerar las líneas del script. Nótese también que dependiendo de la distribución Linux utilizada es posible que haya que modificar la línea número 0 cambiando el path del intérprete Tcl.
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: }
Si durante la ejecución del comando set mysql_handler [mysqlconnect -host $host... se produce algún error, dicho error será capturado por el comando catch. El comando catch devuelve 1 si al ejecutarse el comando que hay entre las llaves aparece un error o 0 si no hay ningún error. La variable mysql_handler guarda la salida del comando ejecutado que está entre las llaves (caracteres { y }).
| elemento | significado |
| code |
Si no ha habido ningún error, entonces mysqlstatus(code) contiene 0; en caso contrario, el contenido de mysqlstatus(code) será el código númerico MySQL del error. Si ha habido un error y no tiene su origen en el servidor de bases de datos MySQL, entonces el contenido de mysqlstatus(code) será -1.
El contenido de mysqlstatus(code) se actualiza despúes de la ejecución de cualquier comando de la biblioteca MySQLTcl. |
| command |
El último comando de la biblioteca MySQLTcl que produjo un error se guarda en mysqlstatus(command).
El contenido de mysqlstatus(command) se actualiza después de la ejecución sin éxito de cualquier comando de la biblioteca MySQLTcl; por lo tanto, el contenido de mysqlstatus(command) no se actualiza después de la ejecución sin error - esto es, con éxito - de cualquier comando de la biblioteca MySQLTcl. |
| message | El contenido de mysqlstatus(message) se actualiza después de la ejecución sin éxito de un comando cualquiera de la biblioteca MySQLTcl con una cadena que contiene un mensaje de error. Al igual que mysqlstatus(command), mysqlstatus(message) no se actualiza después de la ejecución sin error - esto es, con éxito - de cualquier comando de la biblioteca MySQLTcl. |
| elemento | significado |
| nullvalue | Cadena utilizada para representar el valor null cuando se muestran resultados de una consulta SQL.. El valor por defecto es cadena vacía y puede ser cambiado a la cadena que queramos. |
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: }
Huelga decir que el array global mysqlstatus se puede utilizar para manejar más errores que los que se puedan producir al intentar establecer una conexión con el servidor de bases de datos.
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 |
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]La base de datos objetivo de los comandos de la biblioteca MySQLTcl que utilicen el handler mysql_handler será la que tiene por nombre jsmith_database.
Este comando permite cambiar la base de datos asociada del handler MySQL que este comando recibe como primer parámetro.
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 |
% 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}
En el primer ejemplo (-list parameter), el comando devuelve una lista cuyos elementos son, a su vez, listas. En el segundo ejemplo (-flatlist parameter), el comando devuelve una única lista cuyos elementos han sido concatenados en su totalidad.
% mysqlsel $mysql_handler {select first_name, last_name from people order by id asc}
3
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}
Obviamente, se pueden hacer otras consultas SQL que no sean ni delete ni insert. Por ejemplo, es posible actualizar (update) el valor de una fila ya existente:
% 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}
En caso de que no haya ningún error, el comando mysqlexec devuelve el número de filas afectdas por la consulta SQL non-select enviada a la base de datos.
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.
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.
[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
|
|
Contactar con el equipo de LinuFocus
© Diego Alberto Arias Prado, FDL LinuxFocus.org |
Información sobre la traducción:
|
2004-04-01, generated by lfparser version 2.41