TCL

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