TCL官网：http://tcl.activestate.com/

TCL教程：http://tcl.activestate.com/man/tcl8.5/tutorial/tcltutorial.html

TCL/TK详细教程：http://www.ibm.com/developerworks/cn/education/linux/l-tcl/l-tcl-blt.html

 

入门demo（新建1.tcl,然后./1.tcl执行）

#!/usr/bin/tclsh8.5set a 3set b 4set s [expr $a+$b]puts $sproc power {base p} {    set result 1    while {$p > 0} {        set result [expr $result * $base]        set p [expr $p - 1]        puts $p    }    return $result}power 2 6