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.5 set a 3 set b 4 set s [expr $a+$b] puts $s proc 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
原文：http://www.cnblogs.com/thinksasa/p/4522994.html