TCL:如何搜索从当前执行点返回的帧中的特定变量名，然后检索它的值？

proc searchVariable {varName} {
    set frame [info frame]
    while {$frame ne ""} {
        set variables [info locals -frame $frame]
        if {[info exists $variables($varName)]} {
            set value $variables($varName)
            puts "Variable $varName found in frame $frame. Value: $value"
            return
        }
        set frame [uplevel 1 $frame]
    }
    puts "Variable $varName not found."
}

# 调用示例
searchVariable "myVariable"