如何打印TCL运行命令

如何打印我正在运行的每个TCL命令，理想情况下如何自定义此打印

i、 e:

>名称空间XY:：commandXY

我想打印：

“--正在运行：namespaceXY:：commandXY”

---

谢谢

要查看命令跟踪，请使用执行跟踪。您通常会将它们附加到

源代码

或（不太常见的）

eval

之类的内容

proc printTrace {commandCall op} {
    # I don't know whether you want the arguments too; they can get quite long...
    puts "-- Running : [lindex $commandCall 0]"
}
trace add execution source enterstep printTrace
source myScript.tcl

这将启用从

源

开始到完成的所有命令的跟踪；如果该文件包含您的主循环处理，那么您将得到所有内容的打印

---

请注意，步骤级执行跟踪有很大的开销，并且某些命令可能有您通常不会观察到的内部步骤。

要查看命令跟踪，请使用执行跟踪。您通常会将它们附加到

源代码

或（不太常见的）

eval

之类的内容

proc printTrace {commandCall op} {
    # I don't know whether you want the arguments too; they can get quite long...
    puts "-- Running : [lindex $commandCall 0]"
}
trace add execution source enterstep printTrace
source myScript.tcl

这将启用从

源

开始到完成的所有命令的跟踪；如果该文件包含您的主循环处理，那么您将得到所有内容的打印

---

请注意，步骤级执行跟踪有很大的开销，而且某些命令可能有您通常不遵守的内部步骤。

这是否回答了您的问题？是的，我认为除了“跟踪”之外还有另一种解决方案。。。谢谢这能回答你的问题吗？是的，我认为除了“跟踪”之外还有另一种解决方案。。。谢谢我想打印脚本中运行的所有命令（带有所有给定参数），谢谢在这种情况下，打印整个

$commandCall

。请注意，您将获得大量输出。是的，我希望将所有命令打印为脚本中运行的命令（使用所有给定参数），谢谢在这种情况下，打印整个

$commandCall

。要知道，你会得到很多输出。