从shell运行文件时tcl proc命令不起作用

时间:2013-10-18 10:41:30

标签: shell tcl ns2

我是编程新手,想运行我的第一个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

2 个答案:

答案 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