clhon---点点滴滴

该脚本调用了Tclx中的dup命令package require Tclxset fileid ""proc log {msg} {    global fileid    if {$fileid == ""} {        puts stdout "$msg"    } else {        puts $fileid "$msg"    }}proc proc_na

 今天闲着无事，我之前的一些Tcl脚本翻出来，以下是一个Tcl事件编程的例子:set done 0set count 0proc Reader {fd} {    global done count    if {[eof $fd]} {         puts "eof $fd"        set done 1        close $fd    } else {        s

Expect使用例子，更多关于Expect的资料，请参考Exploring Expect和ActiveTcl User Guide。 ################################################################################@@Proc#Name: Get_Key_From_Config#Desc: get config