multithreading - 如何在 perl 中创建共享变量（哈希数组）

Question

可能重复：
Perl：使用共享多维散列的线程

我有一段看起来像这样的代码（过于简单）：

my @arr;
foreach $t (1..8){
     load_arr($t);
}

sub load_arr{
    my ($t) = @_;
    #get some data form somewhere
    #and put it into $a, $b, $c, $d
    $arr[$t]{$a}{$b}{$c} = $d;
}

load_arr 实际上需要很长时间，因为它在大型数据集上循环（为简单起见未显示循环）

我想重写代码看起来像这样。

my @arr :shared;
my @threads;
foreach $t (1..8){
    push @threads, threads->create(\&load_arr,$t);
}
$->join for @threads;
....

问题是当我运行它时，我收到以下错误：

Thread 1 terminated abnormally: Invalid value for shared scalar at ...

我正在寻求有关如何正确分享这些内容的帮助？

谢谢

Answer 1

我用这样的东西。

#!/usr/bin/perl -w
use threads;
use threads::shared;
my  @ThreadInput  :shared=();

@ThreadInput 对我的脚本中生成的所有线程都是可见的。