我是编程新手,想运行我的第一个tcl代码。代码在这里
proc tempconv {} {
set lower 0
set upper 150
set step 25
set fahr $lower
while {$fahr<$upper} {
set celsius [expr 5*($fahr-32)/9]
puts "Fahernheit/Celsius : $fahr/$celsius"
incr fahr $step
}
}
我已将此保存到文件test.tcl ..问题是当我尝试使用shell环境运行它时它没有显示任何结果但是当删除此proc语句并且不进行任何过程时则显示结果..可以任何机构告诉我如何解决这个问题。 使用proc语句,结果就像这样
muhammad@muhammad-HP-G62-Notebook-PC:~/ns-allinone-2.35$ ns test.tcl
muhammad@muhammad-HP-G62-Notebook-PC:~/ns-allinone-2.35$
没有程序,结果就在这里
muhammad@muhammad-HP-G62-Notebook-PC:~$ cd ns-allinone-2.35/
muhammad@muhammad-HP-G62-Notebook-PC:~/ns-allinone-2.35$ ns test.tcl
Fahernheit/Celsius : 0/-18
Fahernheit/Celsius : 25/-4
Fahernheit/Celsius : 50/10
Fahernheit/Celsius : 75/23
Fahernheit/Celsius : 100/37
Fahernheit/Celsius : 125/51
答案 0 :(得分:1)
你需要调用proc:
# Define a procedure called test
proc test {} {
puts "Test Running"
}
# Call the procedure
test
答案 1 :(得分:0)
proc procedure { } {
puts "XYZABC"
}
procedure
在终端中转到
ns-allinone-2.35/ns-2.35/
目录然后运行
ns pathtoyourfile/filename.tcl