ns2中的脚本语言Tcl的基础知识<1>

最后有输出的截图 大家自己看吧 提醒大家的是在写tcl脚本代码的时候 一定要注意空格啊

#输出Hello World

puts stdout "Hello World!"

#输出xiaopeng
puts "xiaopeng"

#输出3
set a 3 ;# a <- 3
puts $a

set var1 5;  set var2 10
unset var1 var2

set a 100; puts $a.00

set a 3; set b 5
puts "$a + $b = [ set a [expr $a + $b ] ]"


set x -1
if { $x >= 0 } {
puts "abs(x) = $x"
} else {
puts "abs(x) = [expr -$x]"
}


set day 3
if { $day == 1 } {
puts "Monday"
} elseif { $day == 2 } {
puts "Tuesday"
} elseif { $day == 3 } {
puts "Wednesday"
} else {
puts "Other days"
}


set day 1
switch -exact -- $day {
1 { puts "Monday" }
2 { puts "Tuesday" }
default { puts "Other days" }
}


set var 2
switch -glob -- $var \
-* {puts "var is a less than 0"} \
default { puts "b is not a negative" }


set var ad
switch -glob -- $var \
-* {puts "var is a less than 0"} \
default { puts "b is not a negative" }


set i 0; while { $i< 5 } { incr i }
puts "i=$i"

set n 10; set result 1
while { $n > 1 } {
set result [ expr $result * $n ]
set n [ expr $n -1 ]
}
puts "result=$result"
puts "n=$n"


set i 0 
foreach value { 1 3 5 7 9 11 } {
set i [expr $i + $value]
}
puts "i=$i"


foreach var [ list $a $b xxx ] {
puts "var = $var"
}


set k 0
for { set i 1 } { $i < 11 } { incr i } {
set k [ expr $k + $i ]
}
puts $k


proc p1 { a b {c 1} } {
set x [ expr ($a + $b) * $c ]; puts "x = $x"
return x
}
p1 1 2


proc variousParams { a { b foo } args } {
foreach param { a b args } {
puts "$param = [ set $param ]"
}
}
variousParams 33 44 32 11


set result 1
proc p { n } {
global result
set result $n
}
puts [p 2]


proc factorial { n } {
puts stderr "n=$n"
if {$n <= 1} {
return 1
}
return [expr $n * [factorial [set n [expr $n -1 ]] ] ]
}
puts [factorial 4]
set q [factorial 5]
puts "q=$q"

for { set i 0 } { $i < 5 } { incr i } {
set arr($i) [ expr $i * $i * $i ] 
}
puts $arr(3)

#必须说说最后这个程序 写Tcl脚本代码的时候 必须有空格啊 一定要注意 没有空格根本调试不出来 这个程序我调了有半个多小时 就是因为空格的问题

set a 10
set b 0
proc p { a } {
set b 3
if {$a >= 0 } {
puts $b
} else {
puts [expr 0-$b]
}
}
p -2

p $b

结果运行如下：