2.Perl 多線程:Threads(線程傳回值)

標籤：reads   color   weight   class   src   ges   amp   傳回值   函數   

 1 use warnings; 2 use strict; 3 use threads; 4   5 sub TEST{ 6     print "Hello, World!\n"; 7     return (qw/1 2 3 4 ‘a‘/); 8 } 9  10 #返回列表方法111 my ($t1) = threads->new(‘TEST‘);12 print $t1->join, "\n";13  14 #返回列表方法215 #16 my $t2 = threads->new({‘context‘ => ‘list‘}, ‘TEST‘);17 print $t2->join, "\n";18  19 #返回單個值20 my $t3 = threads->new(‘TEST‘);21 print $t3->join, "\n";22 getc();

 

對於函數調用， 如果要得到返回列表， 你應要用一個@values來獲得傳回值:

1 #eg.2 my @values = &test;3 #如果函數調用中返回列表， 如你用一個$value獲得傳回值， 應會得到列表的最後一個元素的值4 #eg.5 my $value = (1,2,3,4 ‘a‘);6 print $value;7 #result:‘a‘8 #注意， 這跟my $value = 1,2,3,4, ‘a‘;不同9 #

 

在多線程中， 想得到線程返回程， 那就調用join方法， 如果沒必要擷取傳回值， 要調用detach方法， 如果兩個都不調用， 會得到一個警告。
一般來說， 都應調用join/detach方法。

 

2.Perl 多線程:Threads(線程傳回值)