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