如何在 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对脚本中生成的所有线程都是可见的。