Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/solr/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
TCL中如何避免自动返回_Tcl - Fatal编程技术网

TCL中如何避免自动返回

TCL中如何避免自动返回,tcl,Tcl,我是TCL新手,我希望在不向屏幕返回任何中间结果的情况下运行脚本(除非要求这样做)。TCL如何停止自动退货?让我用一个简单的例子来提问 set a 10 这会将“10”返回到屏幕。我想知道如何在命令执行后停止这个自动返回 谢谢 proc main {} { return } main tclsh test.tcl:它真的不会打印任何东西。但是,仅包含的脚本也不会设置10。您需要探索运行REPL风格界面(read、eval、print、loop)的交互式解释器与评估脚本的非交互式解释

我是TCL新手,我希望在不向屏幕返回任何中间结果的情况下运行脚本(除非要求这样做)。TCL如何停止自动退货?让我用一个简单的例子来提问

set a 10 
这会将“10”返回到屏幕。我想知道如何在命令执行后停止这个自动返回

谢谢

proc main {} {
    return
}
main
tclsh test.tcl
:它真的不会打印任何东西。但是,仅包含
的脚本也不会设置10。您需要探索运行REPL风格界面(read、eval、print、loop)的交互式解释器与评估脚本的非交互式解释器之间的区别


在交互式会话中,您可以在行尾添加一个垃圾命令以抑制输出。例如,如果您必须读取一个大字符串-为了避免将其打印到控制台,您可以使用:
set data[read$filehandle];字符串长度$data

我不确定
设置10
是如何打印任何内容的,除非您的意思是您正在使用shell…必须是交互式使用。Tcl interactive Shell在每行键入内容后打印结果的内容。非交互式代码没有。非常感谢您提供的信息!是的,我正在使用shell实现我的脚本。