在 TCL 脚本 中，info 命令用于获取与程序执行状态相关的各种信息。它能够返回当前环境中的变量、命令、函数等的详细信息，是调试和控制流程时非常有用的工具。以下是 info 命令的常见用法和应用场景：
1. 获取所有变量
set a 10 set b 20 puts [info vars] ;# 输出当前所有的变量 puts [info vars a*] ;# 输出以 'a' 开头的变量
info vars：返回当前命名空间中所有定义的变量名。info vars pattern：根据给定的模式匹配返回变量名。
2. 获取所有命令
proc myProc {} { puts "This is my procedure." } puts [info commands] ;# 输出当前所有的命令 puts [info commands my*] ;# 输出以 'my' 开头的命令
info commands：返回所有可用的命令（包括内置命令和用户自定义命令）。info commands pattern：按给定模式匹配返回命令。
3. 检查变量是否存在
set x 100 if {[info exists x]} { puts "变量 x 存在" } else { puts "变量 x 不存在" }
info exists varName：检查变量是否已定义，返回1表示存在，0表示不存在。
4. 获取变量的值类型
set var1 42 set var2 "Hello" puts [info type var1] ;# 输出 'int' puts [info type var2] ;# 输出 'string'
info type varName：返回变量的类型（int、string、list等）。
5. 获取函数（过程）的定义
proc myProc {arg1 arg2} { puts "arg1: $arg1, arg2: $arg2" } puts [info args myProc] ;# 输出 myProc 的参数 puts [info body myProc] ;# 输出 myProc 的定义体
info args procName：返回指定过程的参数列表。info body procName：返回指定过程的定义体。
6. 获取当前调用堆栈信息
proc innerProc {} { puts [info level] ;# 输出调用栈的深度 puts [info level 1] ;# 输出上一层的调用信息 } proc outerProc {} { innerProc } outerProc
info level：返回当前调用堆栈的深度。info level n：返回指定层级调用的命令。
7. 获取脚本文件名
puts "当前脚本文件名是: [info script]"
info script：返回当前正在执行的脚本文件名。
8. 获取TCL解释器的版本
puts "TCL 版本: [info tclversion]"
info tclversion：返回 TCL 解释器的版本号。
9. 获取函数定义的位置
proc myProc {} { puts "This is a test." } puts [info proc myProc] ;# 输出定义的行号
info proc procName：返回函数的定义位置和源代码行号。
10. 检查命令是否存在
if {[info command myProc]} { puts "命令 myProc 存在" } else { puts "命令 myProc 不存在" }
info command cmdName：检查某个命令是否存在，返回命令名或空值。
11. 获取当前时间信息
puts "当前时间: [info clock clicks]"
info clock clicks：返回当前时间的系统时钟滴答数（以毫秒为单位）。
常见应用场景：
- 调试和调优：在脚本开发过程中，可以通过
info获取变量、命令、过程的状态，快速排查问题。 - 动态操作：在运行时判断某些变量或命令是否存在，从而决定是否执行相关操作。
- 获取系统信息：通过
info tclversion等获取环境相关的信息，确保脚本在正确的 TCL 版本下执行。
info 是 TCL 脚本中用于查询和调试的核心命令，帮助开发者动态获取脚本的运行状态，并根据这些信息进行逻辑控制。
