用tcl访问mysql

TCL并没有自带对mysql的访问接口，需要第三方库才可以。可以到去下载，然后安装即可使用。在你的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