Reading Notes on NS2(1)

由于要用NS2做仿真但网上这方面资料又不够齐全，所以就在当当网上订购了一本方路平主编的《NS-2网络模拟基础与应用》。刚把前两章内容看完发现里面有不少错误，在阅读过程中还发现书中的有些语言不够简练，不易于理解，所以为了更好地学习也为了以后查阅方便，将阅读过程中读到的知识点做个总结(就称为Reading Notes on NS2吧)，望能够快速地掌握它。(2009年11月11日，朋友告诉我家乡正在下大雪，突然发现时间过的真是好快~Cheer up!)

 

[1] Tcl命令格式
基本的Tcl命令格式为：Command arg1 arg2 arg3 ...
例如：
% puts stdout {Hi,I am wcdj!} ;#%是NS2系统的提示符
Hi,I am wcdj! #输出

[2] 变量
Tcl中的变量名由字母、数字、下划线组成。
注意：
(1)变量名第一个字母可以是数字；
(2)变量名长度没有限制；
(3)变量名区分大小写；
(4)Tcl中在使用变量之前不需要事先声明；
(5)$符号用来去变量的值；

[3] Tcl关键字
有17个
argc   argv   argv0   embed-args   env
tcl_interactive   tcl_library   tcl_patchlevel   tcl_platform   tcl_promptl
tcl_prompt2   tcl_vesion   auto_path   auto_index   auto_noload
auto_noexec   geometry

[4] set命令
用来给变量赋值：set 变量名 变量值
注意：
(1)如果set命令后直接跟一个参数，则返回的是这个变量的值；
例如：
% set var1 a ;#给变量var1赋值为a
a
% set var2 $var1 ;#把var1的值赋给变量var2
a
% set var1 ;#返回变量var1的值
a

[5] unset命令
用来删除变量：unset var1 var2 ...
注意：
(1)一条unset命令可以删除任意多个变量；
(2)如果删除没有定义的变量，解释器将报错；

[6] info命令
用来查看变量是否存在。
例如：
if {![info exists foobar]}{ ;#查看变量foobar是否存在
      set foobar 0
}else{
       incr foobar
}

[7] 替代
(1)字符替代
$符号用来取变量的值；
(2)命令替代
[]中的命令为嵌套命令，返回的执行结果作为上一层命令的参数，如果在一条命令中包含多个[]，解释器按照从左到右的顺序执行；
例如：
% set len [string length foobar] ;#string length返回字符串的长度
6
(3)反斜杠替代
/符号用在特殊字符之前表示字符本身，使特殊字符失去特殊的功能；
例如：
“/$”表示“$”本身
注意：
(1)/符号还可以作为续行符(类似C/C++中)；

[8] 组合
双引号""和大括号{}可以把多个以空格为分隔符的字符串组合在一起作为一个命令。(但是有区别)
注意：
(1)双引号在组合体中允许进行替代；
(2)大括号在组合体中不允许进行替代；
例如：
% set s Hello
Hello
% puts stdout "The length of $s is [string length $s]."
The length of Hello is 5.
如果换成{}，则输出
% puts stdout {The length of $s is [string length $s].}
The length of $s is [string length $s].

[9] 格式化输出
format命令用来格式化输出。
例如：
% puts [format "Item: %s/t%5.3f"$name $value]
注意：
(1)在Tcl中，puts自动在末尾添加一个换行符。

[10] 组合和代替的总结
(1)执行顺序一般先组合后代替；
(2)Tcl需要决定如何组织命令参数；(最简单的是，所有参数都由空格分开，另外{}或者""可以把多个参数当做一个简单的参数)
(3)在{}中不进行替代；
(4)在""中进行替代；(在""中嵌套""时，必须使用/"表示)

[11] 数学运算
expr命令把运算表达式作为一个字符串传给解释器，解释器运算完成后把值转换成字符串并返回给Tcl脚本。
例如：
% expr 7.2/4
1.8
% set len [expr[string length foobar]+7]
13
注意：
(1)if语句内部嵌入了expr命令，所以在它的布尔表达式中并不需要显示调用expr命令；
例如：
if{$answer=="yes"}{...}

[12] 过程
Tcl中用proc来定义过程，概念跟C语言中的函数类似。(过程一旦被定义，就可以像内置命令那样使用)
基本的命令格式为：proc name arglist body
例如：
#定义了一个三角形中根据两边长度求第三边长度的过程；
#sqrt是expr支持的数学函数；
#变量c是过程中的局部变量，只在过程体内有效(变量的作用域和C语言中的概念相同)；
#return的作用是返回过程的结果；

proc Diag {ab} {
          set c[expr sqrt($a*$a+$b*$b)]
          return $c
}
#上面过程可以简化为如下
proc Diag {ab} {
          return [expr sqrt($a*$a+$b*$b)]          
}

% puts "the diagonal of a 3,4 right triangle is [Diag 3 4]"
the diagonal of a 3,4 right triangle is 5

[13] 流程控制命令
(1)条件命令
if、swtich
(2)循环命令
while、foreach、for
(3)错误捕获命令
catch
(4)结构调整命令
break、continue、return、error

注意：
(1)在if、while、for命令中，都内嵌了expr命令。(所以不用显示调用expr命令)

[14] if条件命令
基本格式为：if expression then body1 else body2 ;#关键字then可以省略
例如：
if{$x==0} {
       puts stderr "Divide by zero!"
}else{
       set slope[expr $y/$x]
}
#下面是一个包含elseif控制的例子
if{$key<0} {
     incr range 1
}elseif{$key==0} {
     return $range
}else{
     incr range -1
}

[15] switch控制命令
基本格式为：switch flags expression pat1 body1 pat2 body2...default bodyn
flags的取值为三种：-exact、-glob、-regexp。(flags值可以省略，其默认值为-exact)

(1)-exact精确匹配(表达式的值和需要匹配的值必须完全相同)
switch -exact -- $grade{
A {puts "excellent"}
B {puts "good"}
C {puts "pass"}
default {puts "bad"}
}
(2)-glob通配符匹配，字符串中*表示任意字符串，使用?表示任意单个字符。
#如果value的值以X字母开头，则执行第一个过程体
switch -glob -- $value{
X* {puts "Begin with X"}
Y* {puts "Begin with Y"}
}
(3)-regexp正则表达式匹配
#body1执行的条件是变量value的取值末尾为“er”，body2的执行条件是value的开头必须是tab键
switch -regexp -- $value/
^er {body1}/
/t###{body2}/
{[0-9]*}{body3}

[16] for循环命令
基本格式为：for initial test final body
例如：
for {set i 0} {$i<5} {incr i} {
    set sum[expr $sum+$i]
}

[17] foreach循环命令
基本格式为：foreach loopVar valueList commandBody
例如：
#用{}建立列表
set i 0
foreach value{1 2 3} {
set i[expr $i*$value]
}
#用list建立列表
set a 1
set b 2
foreach value[list $a $b[string length foo]] {
set i[expr $i*$value]
}

[18] while命令
基本格式为：while boolExpr body
#求解自然数阶乘的例子
proc Factorial {x} {
        set i 1; set product 1           ;#分号的作用相当于换行
        while{$i<=$x} {
                set product[expr $product*$i]
                incr i                          ;#incr命令是让变量每次加1，等价于set i[expr $i+1]
        }
        return $product
}
% Factorial 10
3628800

[19] catch命令
catch命令用于捕获运行时的错误。catch递归地调用Tcl解释器来执行脚本，如果脚本中有一个错误，catch将返回一个非零的整数值，对应于一个异常返回代码。如果脚本没有任何错误，catch将返回0(TCL_OK)并设置这个变量为脚本返回的值。
基本格式为：catch command resultVar
例如：
if{[catch {open $someFile w} fid]} {
      puts stderr "Could not open $someFile for writing/n $fid"
      exit 1
}

[20] break、continue和return命令
break退出循环；
continue跳过本次循环继续执行下次循环；
return从过程体返回；

[21] 注释
Tcl用字符“;#”或“#”来注释语句。
注意：
(1)#用于注释整行；
(2);#用于注释一行的后半部分；
(3)在注释的最后加反斜杠字符“/”来续行，那么下一行也将被注释掉；
例如：
#银行参数
set rate 7.0      ;#利息
set months 60  ;#贷款期限

#下面所有字符都被注释
#it's a fine day/
gentle breeze; sunny

[22] 数组
在Tcl中数组索引可以是任意字符串也可以是某个替代返回的值，数组元素与普通的变量没有什么区别。
基本格式为：set array(index) value
例如：
set foo $arr(index)   ;#用$取数组元素的值

set arr(0) 1
for{set i 1} {$i<=10} {incr i}
    set arr($i) [expr{ $i * $arr([expr{$i-1}]) }]
}
注意：
(1)数组索引中如果需要空格，必须使用反斜杠加空格代替；
(2)如果整个索引字符串作为一个变量的值，那么索引字符串可以包含空格；
例如：
#注意(1)
set {arr(I'm/ asking/ for/ trouble)} {I told you so}
#注意(2)
set index {I'm asking for trouble}
set arr($index) {I told you so}