无法从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;
# ...

sub doOperation {

    my $a = localtime();
    print "$a\n";
    {
      lock(@arr);    # advisory exclusive lock for variable
      push(@arr,$a);
    }                # lock get released when going out of scope
}