写一个多线程脚本过程中遇到一个奇怪的问题,线程的返回值总为空,仔细探究了一下,终于搞明白了原因。
Perl 多线程创建过程中可以显示或者隐式的指定context,可以理解为返回值内容,如果没有显示指定则会根据脚本写法来推测返回值。
如下脚本的例子:
use threads;
# return scalar
sub test{
return "this is testing @_\n";
}
# method 1
threads->create(\&test,1);
threads->create(\&test,2);
# method 2
# threads->create({context=>'scalar'},\&test,1);
# threads->create({context=>'scalar'},\&test,2);
# method 3
# $t1 = threads->create(\&test,1);
# $t2 = threads->create(\&test,2);
for(threads->list){
print $_->join
}
- 使用method 1,隐式创建一个返回void 的线程,相当于{context=>'void'},运行无任何结果。
- 使用method 2,显式创建一个返回scalar 的线程,运行结果与期望相同。
- 使用method 3,隐式创建一个返回scalar 的线程,运行结果与期望相同。
综上所述,好的做法是如果需要返回值的话,最好显示指定context,以免日后出现更多的问题。