Tcl在獲取文件後進行交互.tcl

Question

我想在Tcl提示符下采集文件後進行交互。 即

] $ tclsh的myCode.tcl

//執行我的代碼

％//內進入myCode.tcl互動模式

Answer 1

這樣做的最簡單的方法是使用來自TclX extension的commandloop命令。

package require Tclx 

#... define things and run things... 

# Let the user issue commands 
commandloop 

上面鏈接的維基頁面討論瞭如何在不使用TclX的情況下做到這一點。

Answer 2

恐怕我可能讀得太少，或者過度簡化它，但是...不是你需要interact命令嗎？

如果你想的Tcl /期望做什麼，然後放棄控制權返回給用戶，請查看下面的手冊頁鏈接的交互命令：

http://www.tcl.tk/man/expect5.31/expect.1.html

Answer 3

如果你寧願做它在沒有任何外部軟件包的純tcl中，tclsh提示符的最簡單實現確實非常簡單。只要把這個在myCode.tcl末：

fileevent stdin readable { 
    puts [eval [gets stdin]] 
} 

vwait forever 

，你甚至可以實現這個作爲源的其他Tcl腳本一個獨立的程序。

當然，上面的示例代碼非常簡單，它甚至不會打印提示或處理諸如多行命令之類的事情，但它是您修改和定製的好起點。