如何在Perl中創建一個共享變量（哈希數組）

Question

可能重複：
Perl: Threading with shared multi-dimensional hash

我有一段代碼，看起來像這樣（簡單化）：

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實際上需要很長時間才能在大數據集上循環（未顯示循環icity）

我想重寫代碼看起來像這樣。

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對我腳本中的所有線程都是可見的。