【关键字】tcl 系统信息
tcl命令 写道
foreach {key value} [array get tcl_platform] {puts "key: $key \tvalue: $value"}
结果 写道
key: osVersion value: 5.1
key: byteOrder value: littleEndian
key: threaded value: 1
key: machine value: intel
key: platform value: windows
key: os value: Windows NT
key: user value: XX
key: wordSize value: 4
key: byteOrder value: littleEndian
key: threaded value: 1
key: machine value: intel
key: platform value: windows
key: os value: Windows NT
key: user value: XX
key: wordSize value: 4