首页 > 代码库 > NS2学习笔记（二）
NS2学习笔记（二）
Tcl语言
变量和变量赋值
set a "Hello World!" #将字符串赋值给变量a
puts "NS2 say $a" #输出字符串的内容，其中$a表示变量a的内容
输出：NS2 say Hello World!
表达式
Tcl中的表达式用expr这个指令来求解。(expression)
set value [expr 0==1]#判断0==1是否成立
puts $value
输出：0
set value [expr 2+3]
puts $value
输出：5
流程控制
if-else:
set my_planet "earth"if {$my_planet == "earth"}{ ...}elseif {$my_planet == "venus"}{ ...}else{ ...}
switch:
set num_legs 4switch $num_legs{ 2 {puts "It could be a human."} 4 {puts "It could be an cow."} 6 {puts "It could be an ant."} default {puts "It could be anything."}}
for:
for {set i 0} {$i < 5} {incr i 1}{ puts "In the for loop, and i == $i"}
while:
set i 0while($i < 5){ puts "In the while loop, and i == $i" incr i 1}
foreach:
foreach vowel{a e i o u}{ puts "$vowel is a vowel"}
输出：a is a vowel
e is a vowel
i is a vowel
o is a vowel
u is a vowel
过程
Tcl中的【过程】与C语言中的函数类似：proc name params body
name:过程名
params:参数列表
body:过程的主体
例如：
proc sum_proc {a b}{ return [expr $a + $b]}set num1 12set num2 24set sum [sum_proc $num1 $num2]puts "The sum is $sum"
输出：The sum is 36
有一点值得注意的是，如果在过程外面定义了某个全局变量，而想在过程中使用这个全局变量，需要在过程中声明，声明方式为：global 全局变量名
数组
set myarray(0) "Zero"set myarray(1) "One"set myarray(2) "Two"for {set i 0} {$i < 3} {incr i 1}{ puts $myarray($i)}
输出：Zero
One
Two
数组的索引也可以为字符串
set person_info(name) "Fred Smith"set person_info(age) "25"set person_info(occupation) "Plumber"foreach thing {name age occupation}{ puts "$thing == $person_info($thing)"}
输出：name == Fred Smith
age == 25
occupation == Plumber
当数组中的索引很多时，没必要在foreach时列出每一个索引，而可以用foreach thing [array names person_info]来代替。
NS2学习笔记（二）
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。