我希望能够确保在退出 Tcl 进程时执行操作。例如，我需要执行如下操作：
proc foo {} {
variable var
set saved $var
# some stuff
if {$failed} {
set var $saved
return
}
# more stuff
set var $saved
}
有没有一种简单的方法可以做到这一点，这样我就不必在每次返回时重复“退出”代码？从概念上讲：
proc foo {} {
variable var
set saved $var
set do-at-return {set var $saved}
# some stuff
if {$failed} {
return
}
# more stuff
}
do-at-return每次退出时都会执行where foo。
在一段时间的条件中，我正在读取分配，然后测试一个变量作为布尔表达式。
假设我正在读取一个文件并想丢弃注释行。但下面的代码不会进入循环。puts 永远不会打印。
while {[gets $fp line] >= 0 && [regexp {^#} $line] ==0} {
puts "Got valid data"
}
似乎行的获取分配和它的评估不能处于同一条件中。这在 TCL 规范中得到证实了吗？
当然，这个方法可行，但我希望在一个语句中完成条件判断。
while {[gets $fp line] >= 0 } {
if {[regexp {^#} $line] == 0 } {
puts "Got valid data"
}
}
干杯。
我使用 SWIG carrays.i 库创建包装器以双倍访问数组。如果我将其添加到接口文件：%array_functions(double, doubleArray);，我将获得 tcl 中可用的下一个函数：new_doubleArray、和。我的问题是：如果使用tcl 过程 () 中的命令创建数组，我是否应该在从过程返回之前使用显式删除它？根据 tcl 逻辑delete_doubleArray，所有局部变量在过程退出后都会被删除，但我不确定 SWIG 数组。代码示例如下：doubleArray_setitemdoubleArray_getitemnew_doubleArraytestProcdelete_doubleArray
proc createArray {list} {
set length [llength $list]
set a [new_doubleArray $length]
for {set i 0} {$i<$length} {incr i} {
set iElem [@ $list $i]
if {[string is double -strict $iElem]==0} {
error "Element of list must be of type double"
}
doubleArray_setitem $a $i $iElem
}
return $a
}
proc testProc {list} {
set listArray [createArray $list]
return
}
先感谢您。
一个简单的问题（Windows 10）..我有一个简短的 Wish 脚本，可以立即撤消主窗口并在后台运行。在发现存在某种条件时，会弹出一个 tk_messageBox，这很好用，只是消息框始终位于当前桌面上的任何内容的后面，他们会听到 Windows 的“叮”声。有没有办法强制将此弹出窗口置于顶部？
我的问题是：是否可以跟踪特定对象的变量？例如，我有 5 个属于同一类的对象，我需要检查每个对象中的特定变量是否已更改，并调用更新与该特定对象相对应的 Tk 小部件的特定过程。我有点困惑，因为我知道我们可以向全局变量添加跟踪，但不确定如何跟踪特定对象内的变量，尤其是如果它在写入之前不存在。提前谢谢你，乔治。
在我的 tcl 工具中，我使用文件 .so + pkgIndex.tcl 形式的二进制共享库，然后使用它package require来加载实际的包。它在我的计算机上运行良好，但是当我尝试将其打包到 Starpack 中时，它会在尝试加载该包时抛出错误：couldn't load file "/tmp/tcl_MI8NvK":/tmp/tcl_MI8NvK: undefined symbol: Tcl_AppendResult
纯 tcl 中的其余程序运行良好。看起来我错过了一些重要的库，但不确定是哪一个。如果我编译我的共享库并包含 /usr/lib/x86_64-linux-gnu/libtcl8.6.a，它会给我另一个错误：
couldn't load file "/tmp/tcl_4cwr95":/tmp/tcl_4cwr95: undefined symbol: inflate。
我使用纯 C 和 SWIG 为 C 库生成包装器代码。我还使用标志 -DUSE_TCL_STUBS 运行 SWIG。提前谢谢您。
PS 全部包含在 C 代码中：
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#include "filter.h"
#include <stddef.h>
#include <tcl.h>
#include <errno.h>
#include <stdarg.h>
#include <ctype.h>
我没有看到这里有任何需要额外注意的地方...
这工作正常：
> lmap x {a b c} {string trim cmd.$x}
cmd.a cmd.b cmd.c
> lmap x {a b c} {list cmd.$x}
cmd.a cmd.b cmd.c
在这两种情况下，string trim和list都有些无用。我所说的无用是指他们不会修改/添加某些内容到结果中。有没有更好的办法？
我尝试了这些，但没有得到我想要的结果：
> lmap x {a b c} {return cmd.$x}
cmd.a
> lmap x {a b c} {return -code return cmd.$x}
cmd.a
> lmap x {a b c} {return -code continue cmd.$x}
cmd.a
我正在尝试让我的期望脚本使用正则表达式识别 IP 地址。据我所知，我无法让任何正则表达式字符串工作。
这是我的代码片段：
send "show router arp mac $MACADDR\r"
expect -re "^.\d+\.\d+\.\d+\.\d+.$"
puts "Carrying on....."
set IP_OUTPUT $expect_out(buffer)
puts $IP_OUTPUT
puts "Yay! That was success!!"
}
我尝试了多种正则表达式样式，但它们似乎都给出了相同的结果......没有。
该命令按预期执行并返回所需的信息，但获取expect下一行（新命令的提示）
我期望$IP_OUTPUT的样子
A::device.name# show router arp mac 00:00:00:00:00:00
===============================================================================
ARP Table (Router: Base)
===============================================================================
IP Address MAC Address Expiry Type Interface
-------------------------------------------------------------------------------
10.0.0.2 00:00:00:00:00:00 03h53m17s Dyn[I] Vlan799
===============================================================================
但它给我的只是 'A:device.name# '