显示所有环境变量的简单 tcl 脚本

复制内容到剪贴板

代码:

#! /usr/bin/tclsh

set names [lsort [array names env]]
for {set i 0} {$i < [llength $names]} {incr i} {
        set name [lindex $names $i]
        puts $name=$env($name)
}

复制内容到剪贴板

代码:

#! /usr/bin/tclsh

foreach {name value} [array get env] {
        puts $name=$value
}