Удалите массив из perl с помощью thread :: queue

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 не передается, поэтому вы не можете передать его ссылку на другой поток. Использовать темы :: общий доступ.