出列與線程隊列:: Perl的

Question

我想用一組線程來處理數據，並與其他排隊一個數組，目前入列和出隊的過程似乎並不奏效

任何思緒之中？ ？

sub process() { 
    while (my @DataElement = $DataQueue->dequeue()) { 
     print "\t".$DataElement[0]."\n"; 
    } 
} 

我使用以下方法來排隊該數據

my @l; 
push(@l, $directories.$suffix); 
push(@l, "testclass"); 
push(@l, $eachFile); 
$DataQueue->enqueue(\@l); 

Answer 1

你沒有提領它訪問數組引用？嘗試

while (my $DataElementRef = $DataQueue->dequeue()) { 
    my @DataElement = @$DataElementRef; 
    print "\t".$DataElement[0]."\n"; 
} 

Answer 2

@l不是共享的，所以你不能將它的引用傳遞給另一個線程。使用threads :: shared。