1. proc name argList body
proc plus {a b} {
expr $a + $b
}
"plus" is a common tcl command.
2. global variable:
global x y
scope variable
namespace variable
3. upvar: reference invoke
#对于访问数组非常有用
proc printArray {name} {
upvar 1 $name a
foreach el[lsort [array name a]] {
puts "$el = $a($el)"
}
}
upvar 应该明确定义层级。
4. 创建新的控制结构: uplevel
do
5. 匿名过程
anonymous procedure
TCL--proc
最新推荐文章于 2024-02-16 12:41:33 发布