tcl介绍

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的结构必须是这样的，不然会出现语法错误。