arrays - 无法从Perl中的子例程插入数组

Question

我正在使用多线程，并希望将每个线程的本地时间推送到数组中。
我可以从线程成功打印到本地时间，但不会将时间拖入数组。打印阵列没有空白。

请检查。

我的代码:

#!/usr/bin/Perl
use threads;
use WWW::Mechanize;
use LWP::UserAgent;

my @arr=();
my $num_of_threads = 2;
my @threads = initThreads();

foreach(@threads){
         $_ = threads->create(\&doOperation);
         }

foreach(@threads){
         $_->join();
         }

foreach(@arr){
         print "$_\n";
         }

sub initThreads{
            my @initThreads;
            for(my $i = 1;$i<=$num_of_threads;$i++){
                push(@initThreads,$i);
             }
            return @initThreads;
        }

sub doOperation{
        ##doing my main operation here
        my $a=localtime();
        print "$a\n";
        push(@arr,$a);
        }

Answer 1

线程不共享变量。参见threads::shared。

use threads;
use threads::shared;
my @arr :shared;