用tcl访问mysql

TCL并没有自带对mysql的访问接口，需要第三方库才可以。可以到http://www.xdobry.de/mysqltcl/去下载，然后安装即可使用。在你的tcl源文件中，如果要用到这个库的话，需要首先package require mysqltcl方可。
下面是参照帮助文档做的一个简单的例子，只做了简单的查询以及插入操作，没有做其它分析工作，只是简单的demo，验证一下这个库是否可用。

#!/usr/bin/tclsh package require mysqltcl set port {3306} set host {localhost} set user {root} set password {iloveyou} set db {test} catch {::mysql::connect -host $host -port $port -user $user -password $password} mysql_handler ::mysql::use $mysql_handler $db mysql::sel $mysql_handler "select * from person" set row [mysql::fetch $mysql_handler] puts $row ::mysql::exec $mysql_handler "insert into person values(\"bird\",28)" mysqlclose $mysql_handler

有价值的参考:
http://www.linuxfocus.org/English/March2004/article331.shtml
http://www.ucl.ac.uk/is/mysql/tcl/

Tags：用tcl访问mysql