如何将Tcl过程输出到文件中

如何将此过程内容输出到文件？我知道“信息体我的程序”可以在屏幕上打印内容。我尝试了以下方法，但没有成功

proc my_proc {} {
    puts "Hello World!"
}

---

只需使用

[put]

：

redirect [info body my_proc] > filename.txt

我知道“信息体我的程序”可以在屏幕上打印内容

---

[info]

不是I/O命令。它用于内省，并以字符串形式返回Tcl过程的主体脚本（“proc contents”）<编码>[puts]然后将给定的字符串值“打印”到I/O通道。

只需使用

[puts]

：

redirect [info body my_proc] > filename.txt

我知道“信息体我的程序”可以在屏幕上打印内容

[info]

不是I/O命令。它用于内省，并以字符串形式返回Tcl过程的主体脚本（“proc contents”）<代码>[puts]然后将给定的字符串值“打印”到I/O通道。

要能够（大部分）重新创建过程，请尝试以下操作：

set f [open filename.txt w]
puts $f [info body my_proc]
close $f

我之所以说“大部分”，是因为

info args

不会为参数发出任何默认值。为此，请看我17年前写过并放弃了（令人震惊的）程序。

要（大部分）重新创建程序，请尝试以下方法：

set f [open filename.txt w]
puts $f [info body my_proc]
close $f

我之所以说“大部分”，是因为

info args

不会为参数发出任何默认值。为此，请看我在17年前写下并放弃了（令人震惊的）