开源中文网

您的位置: 首页 > 编程开发 > Tcl > 正文

用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
相关文章列表:
关于开源中文网 - 联系我们 - 广告服务 - 网站地图 - 版权声明