Tcl 信息存在

Question

我有一个关于 Tcl 的奇怪案例，也许我只是不明白。 以下代码是在顶层完成的（不在任何过程内部）：

if {![info exists g_log_file_name]} {
    set g_log_file_name "default.txt"
}

我希望它做的是声明一个具有某个值的全局变量（如果尚未声明）（这可以在其他脚本或 C 中完成）应用）。然而，if 语句总是为假。我在 Tcl 7.4 上运行。

可能是什么问题？

太感谢了。

Answer 1

% info level
0
% info exists g_log_file_name
0
% set g_log_file_name whatever
whatever
% info exists g_log_file_name
1

因此，您观察到的原因可能是因为在执行 if 命令时该变量实际上总是未设置。

我可以想象的可能原因是：

• 它只是没有设置：从字面上看，没有代码尝试这样做；
• 外部代码设置了一些其他变量：名称不匹配；
• 外部代码在其他解释器中设置变量：在嵌入 Tcl 的 C 代码中，任何时候都可以有任意数量的 Tcl 解释器处于活动状态（并且这些解释器也可以自由创建子解释器）；

我不确定您手头上的那个早已被遗忘的 Tcl 版本，但 8.x 有 trace 命令可用于记录对特定变量的访问 - 您可以尝试使用它来查看会发生什么。