n2实例

实例

ryj@ubuntu:~/test/lab2$ cat 2_1_1.tcl set foo "john"

puts "my name is $foo"

ryj@ubuntu:~/test/lab2$ ns 2_1_1.tcl my name is john

ryj@ubuntu:~/test/lab2$ cat 2_1_2.tcl set month 2 set day 3 set year 97

set date "$month:$day:$year" puts $date

ryj@ubuntu:~/test/lab2$ ns 2_1_2.tcl 2:3:97

ryj@ubuntu:~/test/lab2$ cat 2_1_3.tcl set foo "puts hi" eval $foo

ryj@ubuntu:~/test/lab2$ ns 2_1_3.tcl hi

ryj@ubuntu:~/test/lab2$ cat 2_2_1.tcl set value [expr 0==1] puts $value

ryj@ubuntu:~/test/lab2$ ns 2_2_1.tcl 0

ryj@ubuntu:~/test/lab2$ cat 2_2_2.tcl set value [expr 2>=1] puts $value

ryj@ubuntu:~/test/lab2$ ns 2_2_2.tcl 1

ryj@ubuntu:~/test/lab2$ cat 2_2_3.tcl set value [expr 2+3] puts $value

ryj@ubuntu:~/test/lab2$ ns 2_2_3.tcl

5

ryj@ubuntu:~/test/lab2$ cat 2_3_1.tcl

puts "I am [expr 10 * 2] years old, and my I.Q. is [expr 100 - 25]"

ryj@ubuntu:~/test/lab2$ ns 2_3_1.tcl I am 20 years old, and my I.Q. is 75

ryj@ubuntu:~/test/lab2$ cat 2_3_2.tcl set my_height 6.0

puts "If I was 2 inches taller, I would be [expr $my_height + (2.0 / 12.0)] feet tall"

ryj@ubuntu:~/test/lab2$ ns 2_3_2.tcl

If I was 2 inches taller, I would be 6.166666666666667 feet tall

ryj@ubuntu:~/test/lab2$ cat 2_4_1.tcl set my_planet "earth"

if {$my_planet == "earth"} { puts "I feel right at home."

} elseif {$my_planet == "venus"} { puts "This is not my home." } else {

puts "I am neither from Earth, nor from Venus." }

set temp 95

if {$temp < 80} {

puts "It's a little chilly." } else {

puts "Warm enough for me." }

ryj@ubuntu:~/test/lab2$ ns 2_4_1.tcl I feel right at home. Warm enough for me.

ryj@ubuntu:~/test/lab2$ cat 2_4_2.tcl set num_legs 6 switch $num_legs {

2 {puts "It could be a human."}

第1页下一页