TCL中如何在子线程中访问全局函数或者全局变量

[gemmo]

	set var $::GLOB_VAR
	set id [thread::create {
                  #我想在这里用到外层的var变量或者全局的GLOB_VAR，要如何实现啊
		puts "Thread thread::id] Running..."
	}]

[zydscaline]

TCL是什么东东,百度不出来

[bugs2k]

[Quote=引用 1 楼 的回复:]

TCL是什么东东,百度不出来
[/Quote]

一个较老的脚本语言，在测试领域用的较多

[gemmo]

[手无护鸡之力]

这样：

tsv::set app a 123; #定义变量a并赋值, app视为数组名
tsv::get app a; #取变量a的值
thread::send -async $id [ list cmd $variable ]; #跨线程调用命令/函数

[love_xkw]

我听过，也用过就是不知道怎么编！

[love_xkw]

[Quote=引用 1 楼 的回复:]
TCL是什么东东,百度不出来
[/Quote]
TCL是一个语法简洁，易扩展，功能强大的脚本语言。它能够非常方便的控制计算机的串口（把它当作一个文件对待），且支持正规表达式，使我们非常方便的分析交换机或路由器的输出信息，帮助我们更容易的完成各个模块，或者协议的自动测试。为了让大家对它有个快速，直观的了解，我们对它的变量，控制语句，常用命令，以及文件的输入输出做一简单的介绍，并且附加一个控制PC串口的例子。若需具体了解，可以参考下载的TCL
的帮助<<tcl8.4.5-html.tar.gz>>，以及一个简单的教程《Tclintro.pdf》，正规表达式的教程<<regexp.pdf>>等。

[gemmo]

没看明白


[Quote=引用 6 楼 的回复:]
这样：

C/C++ code


tsv::set app a 123; #定义变量a并赋值, app视为数组名
tsv::get app a; #取变量a的值
thread::send -async $id [ list cmd $variable ]; #跨线程调用命令/函数
[/Quote]

[手无护鸡之力]

不是很明白么……
tsv::set 用来定义可跨线程使用的变量的，相当于线程之间的公共变量
tsv::get 就是取值了

你的代码：

package require Thread

tsv::set app mainID [ thread::id ]; #取当前线程id

proc aa { } {
    puts "This is proc aa."
}
tsv::set app var $::GLOB_VAR
    set id [thread::create {
    puts [ tsv::get app var ] #我想在这里用到外层的var变量或者全局的GLOB_VAR，要如何实现啊
     puts "Thread [ thread::id ] Running..."
    thread::send -async [ tsv::get app mainID ] [ list aa ]; #执行主线程中的aa
    }]

[Quote=引用 7 楼 的回复:]
没看明白



引用 6 楼 的回复:
这样：

C/C++ code


tsv::set app a 123; #定义变量a并赋值, app视为数组名
tsv::get app a; #取变量a的值
thread::send -async $id [ list cmd $variable ]; #跨线程调用命令/函数
[/Quote]