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