perl - 使用线程:: queue在perl中使数组出队

我正在尝试使用一组线程处理数据，并使用另一组线程将其入队，目前，入队和出队过程似乎不起作用

可以吗？

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);

最佳答案

您是否在不取消引用的情况下访问数组引用？尝试

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