proc局部变量如何干扰全局变量

Question

我正在使用TCL 8.6。

这里是代码：

proc unpack_list {list1  list2} {
    set i 0
    foreach e $list2 {
        puts "globals=[info globals $e]"
        global $e
        set $e [lindex $list1 $i] 
        incr i
    }
}

set l1 [list 10 20 30 40]
set l2 [list a b c e]
unpack_list $l1 $l2
puts $a
puts $b
puts $c
puts $e
puts [info globals ]

运行代码失败：

globals=
globals=
globals=
globals=
variable "e" already exists
    while executing
"global $e"
    (procedure "unpack_list" line 5)
    invoked from within
"unpack_list $l1 $l2"
    (file "tmp/1.tcl" line 13)

问题出在这一行：

set l2 [list a b c e]

如果我将“ e”更改为“ ee”，则脚本可以正常运行：

globals=
globals=
globals=
globals=
10
20
30
40
tcl_rcFileName tcl_version argv0 argv tcl_interactive a ee b c auto_path env tcl_pkgPath tcl_patchLevel l1 argc l2 tcl_library tcl_platform

我的问题是：proc内部的变量“ e”在全局命名空间中不存在，它如何干扰全局变量“ e”？

Answer 1

如果您阅读了global命令的说明，它将指出该命令创建了一个链接到全局变量的局部变量。错误消息说明了故事。局部变量已经存在，global拒绝更改其引用。否则，将使局部变量神奇地更改值。