[NS2]TCL语言基本语法

（来自：《NS2仿真实验-多媒体和无线网络通信》）

1. 变量（Variable）和变量替换（Variable Substitution）

　　tcl变量是在第一次使用set的指令来指派变量的值时所产生的。可以使用unset来取消这个变量。当取用或者改变变量值时，只要在变量名称前加上一个“$”，就可以取用或改变变量内的值。指令eval用于执行一个tcl script。

2. 表达式

　　tcl中表达式通常使用“expr”指令去判断表达式的真假或去求表达式的值。

 　　set value [expr >=]

3. 指令替换

　　使用[]来完成指令的替换，即把“原tcl script执行结果”取代“原 tcl script”。

 　　set age
 　　puts “My age is $age”

4. 流程控制

控制指令包括，if-else, switch, while, for, foreach等。

if {condiftion} {body} elseif{condition} {body} else {body}

 　　set value
 　　if {$value < } {puts “$age is less than ”}
 　　elseif {$value == } {puts “$age is ” }
 　　else {puts “$age is more than ” }

switch expression { case1{} case2 {} default{}}

 　　set var
 　　switch var{
 　　     {puts “$var is ”}
 　　     {puts “$var is ”}
 　　    default {puts “$var”}
 　　}

while {condition} {}

 　　set i
 　　while {$i < } {
 　　    puts “$i”
 　　    incr i
 　　}

for {initialization} {condition} {change variable} {body}

 　　for {set i } {$i < } {incr i } {
 　　    puts “$i”
 　　}

foreach variable {variables} {body}

     foreach i {a e i o u} {
         puts “$i is vowel”
     }    

5. 程序

　　定义程序的基本语法为 proc name params body，即proc name {paramets} {body}。其中，name是函数名称，params是参数列表，body是程序主体。

 　　proc sum {a b} {
 　　    return [expr $a + $b]
 　　}
 　　
 　　set num1
 　　set num2
 　　set sum [sum $num1 $num2] ;#有参数的调用方法
 　　puts “The sum is $sum”

　　在函数中使用外部变量，即全局变量，需要使用global来声明。

 　　set num
 　　
 　　proc fun {} {
 　　    set tmp
 　　    puts “The local variable is $tmp”
 　　    global num
 　　    puts “The global variable is $num”
 　　}
 　　
 　　fun  ;#无参数情况下的函数的调用

6. 数组

　　使用set array_name(index) value的格式来声明数组，并且index可以使用数字或字符串。

 　　set num_array() “Zero”
 　　set num_array() “One”
 　　for {set i } {$i < } {incr i } {
 　　    put &num_array($i)
 　　}

 　　set person_info(name) “John”
 　　set person_info(age) “”
 　　
 　　# foreach thing {name age} {
 　　foreach thing [array names person_info] {
 　    　puts “$thing == $person_info($thing)”
 　　}

　　这里需要注意，在数组名称与“(”之间不能有空格。