perl实现多线程详解借鉴.pdfVIP

查看文章 Perl 多线程 2007-09-21 13:14 利用 threads 包，可以很方便的实现多线程编程。 不过今天发现 threads 包有一个问题，不能利用参数返回结果了。 比如有这样一个子函数： sub foo{ my $v1 = shift; $v1->{a} = "aa"; } 如果我们这样调用它： my $res = {}; &foo($res); print $res->{a}; 就可以得到输出： aa 可是如果使用线程： my $res = {}; my $thread = threads->create('foo', $res); $thread->join(); print $res->{a}; 则不能正确返回结果。 我猜测是因为 threads 对传入的变量进行了复制， 而不是 引用。 这点等以后分析了 threads 包再确定。 没有办法，如果确实要返回值的话，好采用如下的方式了： sub foo{ my $v1 = {}; $v1->{a} = "aa"; return $v1; } my $thread = threads->create('foo'); my $res = $thread->join(); print $res->{a}; ==================================================================== 附文： [Perl 文] 简单多线程结构分析 =================================================================== ========================================= use Thread; #导入 Thread 包 $thread=Thread->new(\&aaa,'aaa','bbb'); #新建多线程对象变量 $thread ，第一个参数是以子程序方式的结构体，后面跟 的 #都是调用前面的那个子程序结构的实际参数。 $result=$thread->join(); #召回线程的返回。无参数， $result 变量为返回值。注意 : 线程本身不能调用 自 # 己的 join() 方法。 $thread->detach(); #使分线程与主线程分离。无返回值，无参数。注意 : 调用此步后就不能再在其 他 #线程调用关于这个线程的 join() 方法了。 @thread_list=$thread->list(); #返回正在运行的线程。无参数，返回值 @thread_list 为正在运行的线程的列 表。 $thread=Thread->self(); #返回当前线程本身。无参数，返回值为当前线程的对象变量。 $tid=$thread->tid(); #返回多线程对象的 tid 值( 附:tid 为线程独有的 id 记号 ) 。无参数，返回值为 线程 # 的 tid 值。 lock($aaa); #把进程中的某个变量锁住，以便某个线程不能改变其值。 $thread=async{BLOCK}; #创造新线程的另一种方式。参数 BLOCK为命令行格式，返回值为线程对象变 量。 =================================================================== ========================================== #实验 : 因为至今还不能很好地‘凌驾’这种‘技术’，因此不能提供良好的实 验代码给大 #家，望大家见谅。 #!usr/bin/perl -w use IO::Socket; # 导入 IO::Socket 包