TclMySQL入门 | ||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 作者：Diego Alberto Arias Prad 翻译：郭晓龙 2004-10-05 18:01:37 来自：linuxfocus | ||||||||||||||||||||||||||||||||||||||||||||
安装MySQLTcl
如果你的Linux发行版或*BSD系统支持包（如RPM或DEB）或ports（比如Crux Linux
或 FreeBSD,）安装方式，你可以使用包或ports系统来安装 MySQLTcl
并跳过这一节的内容。
Tcl 基础
这一节中我会向对本文有兴趣但并不了解Tcl的读者简要的介绍一些Tcl的基础知识。如果你已经是一名Tcl程序员，你可以跳过此节。
变量，命令与变量置换。
Tcl 使用命令set来建立变量。请看下面的例子：
% set address Edison Avenue, 83 % set zip_code 48631假设我们想将变量address的值打印到屏幕上，可以使用puts命令： % puts stdout [set address] Edison Avenue, 83我们向命令puts传递了参数 stdout。 这个参数告诉puts在标准输入上打印，在这里指的是屏幕。传递给puts的第二个参数是 [set address]。方括号告诉Tcl解释器，括号内是另一条Tcl命令，它必须在puts命令之前被Tcl解释器执行 ，这叫做命令置换。还可以用另一种方法来完成相同的工作： % 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命令来删除变量： % 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 字符串
字符串是Tcl三种基本数据结构之一。一个字符串是一些字符的集合。使用set命令能够建立字符串。
% set surname Westmoreland Westmoreland % set number 46.625 46.625变量 surname 和 number都是字符串。 字符串可以使用 string 命令来操作。 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。之后使用string命令将变量number当作字符串进行处理，以显示它最后的四个字符。 还有比上述例子中所展示的更多的字符串操作。 Tcl 链
Tcl 链是一种将元素通过空格分开并有特别的解释特殊字符串（string)。
% 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从最后一个例子可以看出链与字符串实际上是相同的数据结构。 Tcl 数组
数组可以看作一个用字符串值作索引的链。数组可象下面的例子那样被创建：
% 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
请注意，左边那一排数字与冒号并不是Tcl脚本的内容，只是为了方便解释所标识的行号。同样要注意，根据你所使用的Linux版本，你可能要将第0行更改为正确的Tcl
shell路径。
第0行告诉shell这个文件是一个Tcl脚本以及在哪可以找到Tcl解释器。 第2行告诉Tcl解释器在执行脚本命令时去MySQLTcl库中进行查找。例如在第10行中我们看到命令 mysqlconnect， 如果脚本中没有包含第2行，在解释器执行mysqlconnect 时会抱怨不能找到命令。 . 第5与第6行中的port 和 host 是Tcl脚本准备联接的端口与主机。在脚本中端口号（port）是3306 (这是MySQL服务器侦听的默认端口），主机（host）与执行Tcl脚本的是同一部机器。 第7与第8行设置的是数据库用户与密码。 在第10行开始真正建立起与数据库的联接。 mysqlconnect 命令的输出保存在变量 mysql_handler中。这个变量将是数据库联接的句柄。这个句柄用于数据库查询，当然关闭数据库联接时也使用它，这就是第12行所作的。 错误处理
在上一节中脚本的第3行还没有解释。这是我们现在要作的。
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。变量 mysql_handler
用来保存花括号内命令执行的结果。
如果出现了错误，将会在标准错误输出（stderr）上打印信息，在这里指的是屏幕。在与数据库建立联接时有多种情况会引发错误：错误的密码，不正确的主机或端口号等等，因此，在这里给出更详细的信息要比?那是一个错误?这类的简单信息更好。 在第3行, 变量 mysqlstatus 声明为全局变量。全局变量可以在Tcl脚本的任何位置使用。这涉及到Tcl的变量作用域，这已经超出了本文的介绍范围。库MySQLTcl创建与维护一个名为mysqlstatus的全局数组。这个数组包含下列元素：
全局数组mysqlstatus 中还有一个与错误处理无关的元素。 :
因此利用全局数组 mysqlstatus ，可以重写早先的代码，使它在建立与数据库的联接时一旦发生错误能给出更详细信息。 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: }
很明显全局数组能够处理除了在建立数据库联接时引发的错误之外更多的错误。
基本的 MySQLTcl 库命令
这一节中将介绍大多数MySQLTcl中的基本命令，我还将通过一些例子来展示如何使用它们。更完整的内容，请参考MySQLTcl库man页。
mysqlconnect
这个命令已经在 "建立数据库联接"一节中讨论过了。不过有一个额外的参数在前面没有说到：-db。使用参数 -db，可以直接指定随后的SQL语句所使用的数据库。看下面的例子：
% set mysql_handler [mysqlconnect -h 127.0.0.1 -p 3306 \\ -user john_smith -password jsmith_password -db jsmith_database]数据库句柄 mysql_handler 将名为jsmith_database的数据库指定为MySQLTcl命令的目标数据库。 (请注意字符 \\不是命令的一部分，它表示命令在一下行继续） mysqluse这个命令将改变由第一个参数给出的MySQL句柄所关联的数据库。 mysqlsel
这个命令发送 SQL select语句到由MySQL句柄所关联的数据库。如果参数 sql_statement 不是一个SQL 选择语句将会引发错误。
我们使用 mysqlsel 发送SQL选择语句到数据库： % 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), 命令返回的链中全部元素也都是独立的链。而第二句 (使用参数-flatlist)，命令返回一个单一的链全部元素都是互相联接的。
如果mysqlsel 不使用第三个参数会发生什么呢？这种情况中，命令的输出是通过查询返回的行数： % mysqlsel $mysql_handler {select first_name, last_name from people order by id asc}
3
mysqlexec
mysqlexec 命令发送非选择 SQL语句到由MySQL名柄所关联的数据库。如果参数 sql_statement
是一个选择语句，并不会产生一个错误，但它不作任何事。
% 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}
当然，除了delete与insert之外的SQL命令也可以使用这个命令发送到数据库。比如，更新(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 如果执行成功则返回被发送到数据库的非选择SQL语句所影响的行数。
mysqlclose就象之前看到的，命令 mysqlclose 用来关闭与数据库的联接。这个命令的参数是一个MySQL句柄，它指向与我们想关闭的数据库。 其它 MySQLTcl 库命令MySQLTcl 库 除了这一节所展示的五个命令之外还有更多的命令。使用它们可以检索数据库的相关信息，转义字符串以适应它们的查询，进行嵌套查询等等。 MySQLTcl的man页是一个很好的参考，它是MySQLTcl库安装的一部分。 参考
[1] a slightly skeptical view on John K. Ousterhout and Tcl:
[2] Tcl 正则表达式教程
TclTutor是一个自由的可交互式学习Tcl的程序：
MySQL 文档，有多种格式 (HTML, PDF...):
(编辑:admin)
|
| ChinaUnix首页 > Linux时代 > > 正文 |
 |
|
| ||||
|