[NS2]TCL语言基本语法

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

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

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

2. 表达式

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

　　set value [expr 1>=2]

 

3. 指令替换

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

 

　　set age 23
　　puts “My age is $age”

 

4. 流程控制

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

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

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

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

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

while {condition} {}

　　set i 0
　　while {$i < 5} {
　　    puts “$i”
　　    incr i 1
　　}

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

　　for {set i 1} {$i < 5} {incr i 1} {
　　    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 15
　　set num2 16
　　set sum [sum $num1 $num2] ;#有参数的调用方法
　　puts “The sum is $sum”

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

 

　　set num 15
　　
　　proc fun {} {
　　    set tmp 14
　　    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(0) “Zero”
　　set num_array(1) “One”
　　for {set i 0} {$i < 2} {incr i 1} {
　　    put &num_array($i)    
　　}

 

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

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