第2章_Tcl与OTcl___NS.ppt

TCL (Tool Command Language)在ns2中主要是用来描述脚本。简单来说就是用来描述要模拟的网络环境和参数设定。 Tcl Developer Xchange http://tcl.tk/ T / Tcl 语言中文网 / 2.1 Tcl命令格式 Command arg1 arg2 arg3 …… Command-命令名称或Tcl过程名 Arg1 arg2… 命令参数 用空格分隔 For example: % puts stdout {Hello,World!} Result: Hello,World! 输出结果（out） 2.2 变量（variable） TCL使用变量时，不需要事先声明。在第次使用set命令来指定变量值是自动产生。 释放变量：使用unset来取消，但一般而言，可以不用释放变量。 使用变量或者修改变量赋值，只要在变量名称前加$即可或者是改变取值。 Example 1: (把下面代码保持到文件ex1_1.tcl) set foo “john” puts “my name is $foo” 执行方法: ns ex1_1.tcl 执行結果: my name is john 字符串 2.3 组合替代 2.5 过程 2.6 流程控制命令（if） switch for while foreach 2.7 注释 ；# 注释一天语句的后半部分 set rate 7.0 ;利息 # 在语句前加#，表示注释整行 #银行参数 多行注释用“\” #it’s a fine day\gentle breeze;sunny 2.8 数组 2.9 OTcl 一个简单实例 结果 Class Hierarchy (Partial) * 网络仿真与模拟 网络工程系-贺小扬 * Tcl和OTcl 第 2 章 2.1 Tcl命令格式 2.2 变量 2.3 组合和替代 2.4 数学运算 2.5 过程 2.6 流程控制命令 2.7 注释 2.8 数组 2.9 OTcl 第2章 Tcl和OTcl Example: (ex2_1.tcl) set f [open /tmp/myfile w] puts $f We live in Baoding. Its already 110 miles away from here. puts $f 456 close $f 执行方法: ns ex2_1.tcl 执行结果: 打开/tmp/myfile，内容为: We live in Baoding. Its already 110 miles away from here. 456 Example : (存到ex2_11.tcl) set str This is a string puts The string is: $str puts The length of the string is: [string length $str] puts The character at index 3 is: [string index $str 3]“ puts The characters from index 4 through 8 are: [string range $str 4 8] puts The index of the first occurrence of letter \i\ is: [string first i $str] 执行方法: ns ex2_11.tcl 执行结果: The string is: This is a string The length of the string is: 16 The character at index 3 is: s The characters from index 4 through 8 are: is a The index of the first occurrence of letter i is: 2 指令替換可以把”原tcl script执行結果”取代”原tcl script”。 Example: (存到ex3_1.tcl) puts I am [expr 10 * 2] years old, and my I.Q. is [expr 100 - 25] 执行方法: ns ex3_1.tcl 执行結果: I am 20 years old, and my I.Q. is 75 * * 2.4 数学运算 TCL包含多种表示式（如数学表示式、关系表示式等），使用expr命令去判断表示式真假或者去求得表示式的值。 Example: (存到ex2_41.tcl) set value [expr 0==1] p