Question

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

Answer 1

你需要调用proc：

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

# Call the procedure
test

Answer 2

proc procedure { } {
puts "XYZABC"
}
procedure

在终端中转到

ns-allinone-2.35/ns-2.35/

目录然后运行

ns pathtoyourfile/filename.tcl

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

2 个答案: