黑仔ZJM

ini file example:[database]dbsrc = dbdbusr = sadbpwd = 1234 invoke example:ReadIni "database"if {[info exists iniAttribute(dbsrc)]} { set dbsrc $iniAttribute(dbsrc)} source code:s

set url "www.baidu.com"set lines [split [::http::data [::http::geturl $url]] "\n"]

set ip localhost set port 12345if {[catch {set sock [socket $ip $port]}]} { puts stderr exit}

# file operation in Tcl/TK# open file for read/write## open way:## r : read only, file should exist.# r+: read and writ, file should exist.# w : write only,if file exist, clear it, else create

# import odbc package,# the package not include in the tcl/tk # need install extrapackage require tclodbc# connect to a odbc set dbsrc omsdataset dbusr saset dbpwd 1234database db $dbsrc $d

proc getDate {} { #01/10/2014 return [clock format [clock seconds] -format "%m/%d/%Y"] }proc fileDate {} { # 20121221 return [clock format [clock seconds] -format "%Y%m%d"]}proc dateTime

upvar 很象c语言的引用传参，我用一个例子说明set a 1 ;#定义变量a, 并且值设为1proc test {b} { upvar $b mya puts $b puts $mya}test a ;#调用函数 testa   ;#参数b的值为a(变量名）1  ;#由于upvar 使mya(变量名）指向a(变量名）指向的同一个变量,mya的