Tcl - 监控 FTP 上传百分比
如何在 Tcl 中显示 ::ftp::Put 处理的上传百分比？ 示例： proc upload {host user pass dir fileList} { set handle [::ftp::Open $host $user $pass…
如何有效（内存/时间）修改 Tcl 中列表的所有元素？
为了对列表的每个元素进行操作，返回修改后的列表，各种语言都有显式的构造。 在 Perl 中，有映射： perl -e 'my @a = (1..4); print join(q( ), map …
从 tcl 列表中删除子列表
我想从 Tcl 列表中删除子列表。我知道如何使用 lreplace 对主列表执行此操作，但我不知道如何对子列表执行此操作。 例如： set a { 1 2 { {3 4} { 4 }…
由 Expect 产生的程序太多
我正在使用 Expect 模块来执行任务。 这是我的代码示例 foreach temp $list { spawn -X $temp while {1} { expect { eof {break} "password {send "pa…
一个关于expect和tcl的问题
我有一个关于expect/tcl的问题， 我期望以下内容， expect "class room: classroom 1" send "classroom" send "classroom" will return "class room: …
使用 Swig 将 C 和 TCL 结合起来
我一直在遵循使用 Swig 将 C 与 TCL 结合起来的教程。该教程似乎工作正常，但最后我遇到了一个无法解决的错误。情况如下： 我遵循的教程是： http://w…
php 的 readfile 函数有 TCL 等效项吗？
情况： 想象一下两台服务器 A 和 B。服务器 B 仅输出一个 PDF 文件，该文件很好地显示了从通过 url 参数传递给它的任何 xml 字符串检索到的信息。服务…
如何在 Tcl 中连接用大括号转义的字符串？
我在 Expect 脚本中编写正则表达式，并希望使用 ([0-9]+)\r 作为正则表达式模式。为了防止 [...] 替换，我使用弯曲大括号： expect -re {([0-9]+)\r} …
如何在程序运行时显示列表框或文本
这是我的编码。我面临一个问题，即它仍在运行时没有显示“.display_message”。仅在 proc torun {} 完成其任务后我才收到消息。顺便说一句，2000年后…
锁定 TCL 中的 Metakit 数据库
从 TCL 锁定 Metakit 数据库的首选方法是什么？ 基本上我有一个从 Metakit 数据库文件读取/写入的应用程序，我担心如果用户运行我的应用程序的两个实…
Tcl/Tk：组合框 - 自动完成
我需要在我的组合框中自动完成。在下面的代码中，如果我输入 T，则仅应显示 Tennessee 和 Texas，而输入 Tex 则应完全显示填写Texas。 ttk::combobox …
