1, 初始化和使用 对象
set x 10
set y 100
set z [expr $x+$y]
puts $z
2,条件表达式
puts "try if"
set x 3
if {$x>0} {
puts "${x}>0"
} else {
puts "${x}<0"
}
puts "try while"
set x 3
while {$x >0} {
puts "$x>0"
incr x -1
}
puts "try for"
for {set i 3} {$i>0} {incr i -1} {
puts "$i>0"
}
3,proc过程
puts "try proc\n"
proc add {x y} {
expr $x + $y
}
proc default_args {{inst 0} {lpk pmd} {test_mode n_mins}} {
puts "$inst"
puts "$lpk"
puts "$test_mode"
}
proc changed_args {args} {
foreach i $args {
puts $i
}
}
特别注意:
1,tcl的分节符“{”,“}”一定要有空格,否则tcl的解释器会把{和之前的当作一个命令。
2,if {} {
# cmd
} else {
# cmd
}
if和else的结构必须是这样的,不然会出现语法错误。