Perl threads join 返回值

写一个多线程脚本过程中遇到一个奇怪的问题，线程的返回值总为空，仔细探究了一下，终于搞明白了原因。

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'},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，以免日后出现更多的问题。