关于threads中的join返回值问题

522468522

1.    #!/usr/bin/perl
   
2.    use warnings;
   
3.    use strict;
   
4.    use threads;
   
5.    
   
6.    #join()函数等特线程退出并取得它的返回值
   
7.    
   
8.    sub myfunction{return ('a', 'b', 'c', 'd');}
   
9.    my ($thread) = threads->create(\&myfunction);
   
10.   #my $thread  = threads->create(\&myfunction);
    
11.   print "$thread\n";
    
12.   my @return_values = $thread->join();
    
13.   print "@return_values"."\n";
    

复制代码

如上代码，为什么$thread 时$thread->join()只返回myfunction中的最后一个列表元素
当($thread)时，会返回a,b,c,d列表，这个要怎么理解？
能解答下吗？
谢谢。

1. root@Perl:~/perlstu/threads# perl thread_join函数返回值与说明.pl
   
2. threads=SCALAR(0x1dfc5a8)
   
3. d
   
4. root@Perl:~/perlstu/threads# fg
   
5. vim thread_join函数返回值与说明.pl
   
6. 
   
7. [1]+  Stopped                 vim thread_join函数返回值与说明.pl
   
8. root@Perl:~/perlstu/threads# perl thread_join函数返回值与说明.pl
   
9. threads=SCALAR(0x25fe520)
   
10. a b c d
    

复制代码

MMMIX

回复 1# 522468522


    这还是把 array 和 list 搞混了：http://learn.perl.org/faq/perlfa ... a-list-and-an-array