问题标签 [tclsh]

我试图理解 Tcl 中的错误和异常。我写了一个小代码如下

当我使用 运行它时tclsh.exe，调试器输出如下所示，

但是，当我使用tclsh.exe通过Komodo IDE运行相同的程序时，我得到的调试器输出如下

我可以理解来自 Komodo IDE 的调试器输出，tclsh.exe但无法解释来自Komodo IDE的调试器输出。

特别是，我无法理解DbgNub_Do 0 {1 17 {249 27}} {puts "Result = [DbgNub_Do 1 {1 17 {265 9}} {Div3 10 0}]"}列表中显示的数字（即{1 17 {249 27}}）DbgNub_uplevelCmd 1 $cmd和DbgNub_Do

提前致谢

我正在寻找一个内置或标准包，它提供与 stdlib'satexit()和 bash'相似或等效的功能trap "..." EXIT。

它应该捕获由于任何结束执行的编程方式而终止，包括以下所有内容：

• 自然到达脚本执行结束
• 显式调用exit
• 未被抓住error

我想打开一个filelist.txt只包含字符串${PATHFILE}/test.txt的文件，读取该行并打开文件test.txt。该文件test.txt存在于文件夹~/testfile中。
考虑这个示例代码：

问题是“打开”命令似乎找不到PATHFILE变量，我收到此错误：

如果我尝试打开文件，set fp1 [open "${PATHFILE}/test.txt" r]我没有任何错误。

If possible, I would want my customised "puts" to be able to provide the timestamp during my code.

Not sure, if an interpreter allows you to do this...

Any close enough ideas are welcome.

Thanks, Tanbir

我想读取myfile.tcl并遍历它的结构（枚举过程和变量，类似的东西）。

我知道内置interp命令，但它看起来不会让我遍历它解析的结构，只是评估它。

我试过https://wiki.tcl-lang.org/page/parsetcl但是

a）它失败了can't find package tcl 8.4，我试过了package require tcl 8，package require tcl 8.5但也没有用，所以我把它注释掉了

b）之后它仍然不起作用，下面的测试脚本只是挂起而不产生输出

我也试过了parsetcl::format_tree [parsetcl::simple_parse_script [info body _load]] { } { }，同样的问题。

我正在执行这些tclsh，在 Ubunut 上apt认为我已经安装了软件包tcl tcl8.5 tcl8.6。

为什么这不起作用？

我正在运行一个 tclsh 脚本，并试图确定终端窗口中的行数。当我从命令行运行命令时，我得到了正确的数字 (70)。

但是当我从 puts/exec 内部运行命令时，我得到一个不同的数字（24）。

我要找的号码是 70……我做错了什么？

我想在变量中捕获命令的标准输出，类似于 Bash 中的命令替换：

我尝试在 tclsh 中做同样的事情，但它没有做我想要的：

tclsh myscript.tclsh如果我用它执行脚本会出错：

另一方面，如果我打开一个 TCL 交互式 shell tclsh，它不会给出错误，并且该 echo行打印一个空字符串。

为什么当我在有或没有 REPL 的情况下执行脚本时我的程序给出不同的结果？是否有一种方法可以捕获 shell 命令的输出并将其存储在变量中，类似于 Bash 中的命令替换？

我已经尝试在 wish(*.tk) 文件中加载线程包。你能告诉我如何在wish（tk）文件中使用包吗？

% pkg.tk

错误：

我想在 tcl 脚本中执行以下命令。该命令与特定工具有关。

exec tool cut Netlists/$::env(DESIGN_NAME).netlist.v

当上述命令在运行 tcl 脚本时执行，其相应的输出不会显示在终端上。

当我尝试在 tcl shell 中运行此命令时，它工作正常。

有没有办法在终端上打印结果？

我需要类似的东西：

打印出来：hello。

就像-c在bash.