TCL - 使用正则表达式获取另一个字符串中由空格分隔的字符串列表
如何在 TCL 中编写匹配单词和空格的正则表达式。例如我有 aaaa bbbb cccc 并且我想匹配“aaaaa”，“bbbb”，“cccc”。 另外请告诉我空白和非空白的…
在 Unix 上的 Tcl 中，如何杀死已使用 exec 启动的后台进程？
我想使用 Tcl 的 exec 命令从 Tcl 程序中启动 Unix 后台进程。但是，我想在将来的任意时间以编程方式终止同一个 Tcl 程序中的后台进程。我怎样才能最…
tcl 数组问题 - 带引号的键
这让我感到惊讶 >set foo("bar") 12 12 >parray foo foo("bar") = 12 >set foo(bar) 12 12 >parray foo foo("bar") = 12 foo(bar) = 12 ，似…
构造函数中的错误：无法执行“git”：没有这样的文件或目录
好的，所以我正在设置一个修改后的 Eggdrop 机器人，但是在获取所有必需的 Perl 模块和库后，我收到此错误： sudo perl run-test Running bot 18076 t…
[incr Tcl] 中的静态函数继承
incr Tcl 中的继承无法按预期工作。考虑下面的代码。 package require Itcl ::itcl::class Base \ { public { proc function { } { puts "==== Base::…
有没有办法让 [incr Tcl] 类成为朋友？
有没有办法在 incr Tcl 中获得类之间的友谊？ 考虑下面的代码。 package require Itcl ::itcl::class A { private { proc f { } { puts "==== A::f" }…
使用 tcl 脚本中的 diff 命令捕获错误“子进程异常退出”
在 tcl 脚本中，我使用 diff 命令逐行比较文件 if {[catch {eval exec "diff /tmp/tECSv2_P_HTTP_XHDR_URL_FUNC_12.itcl /tmp/tempReformat"} results…
在 Tcl 中处理带引号的字符串中的逗号
我在 Tcl 中使用以下行来解析逗号分隔的字段行。某些字段可能会被引用，因此它们可以包含逗号：（ set line {12,"34","56"} set fresult [regsub -all…
