0

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

2 回答 2

1

您需要调用proc：

# Define a procedure called test
proc test {} {
   puts "Test Running"
}

# Call the procedure
test
于 2013-10-18T10:57:38.860 回答
0 
proc procedure { } {
puts "XYZABC"
}
procedure

在终端去

ns-allinone-2.35/ns-2.35/

目录然后运行

ns pathtoyourfile/filename.tcl
于 2014-03-01T18:43:13.083 回答