Question

我最初尝试通过Thread :: Queue尝试发送哈希对象，但根据this link，我的Thread :: Queue和threads :: shared版本太旧了。不幸的是，由于我正在测试的系统不是我的，我无法升级。

然后我尝试使用公共数组来存储哈希值。这是迄今为止的代码：

#!/usr/bin/perl
use strict;
use warnings;

use threads;
use Thread::Queue;
use constant NUM_WORKERS => 10;

my @out_array;
test1();

sub test1
{
    my $in_queue = Thread::Queue->new();
    foreach (1..NUM_WORKERS) {
        async {
            while (my $job = $in_queue->dequeue()) {
                test2($job);
            }
        };
    }

    my @sentiments = ("Axe Murderer", "Mauler", "Babyface", "Dragon");

    $in_queue->enqueue(@sentiments);
    $in_queue->enqueue(undef) for 1..NUM_WORKERS;
    $_->join() for threads->list();

    foreach my $element (@out_array) {
        print "element: $element\n";
    }
}

sub test2
{
    my $string = $_[0];
    my %hash = (Skeleton => $string);
    push @out_array, \%hash;
}

但是，在该过程结束时，@out_array始终为空。如果我删除了脚本的线程部分，则会正确填充@out_array。我怀疑我在这里错误地实现了线程。

如何在此实例中正确填充@out_array？

Answer 1

你需要让它共享

 use threads::shared;
 my @out_array :shared;

如果您所做的只是按下它，我认为您不需要锁定它，但如果您这样做，则使用

 lock @out_array;

您需要使用thread :: shared中的工具共享由您推送到其上的值引用的任何数组或哈希。

 push @out_array, share(%hash);

虽然如前所述，我会使用Thread :: Queue。

sub test2 {
    my ($string) = @_;
    my %hash = ( Skeleton => $string );
    return \%hash;
}

...

my $response_q = Thread::Queue->new()
my $running :shared = NUM_WORKERS;

...

    async {
        while (my $job = $request_q->dequeue()) {
            $response_q->enqueue(test2($job));
        }

        { lock $running; $response_q->enqueue(undef) if !--$running; }
    };

...

$request_q->enqueue(@sentiments);
$request_q->enqueue(undef) for 1..NUM_WORKERS;

while (my $response = $response_q->dequeue()) {
    print "Skeleton: $response->{Skeleton}\n";
}

$_->join() for threads->list();

请注意，test2中没有任何特定于线程的内容。这很好。你应该总是努力分离关注点。

Answer 2

您需要return来自主题的数据：

....
        async {
            my $data;
            while (my $job = $in_queue->dequeue()) {
                $data = test2($job);
            }

            return $data;
        };
...

for ( threads->list() ) {

    my $data = $_->join();
    #now you have this thread return value in $data
}

sub test2
{
    my $string = $_[0];
    my %hash = (Skeleton => $string);
    return \%hash;
}

Answer 3

我在示例here中找到了答案。

我不得不改变两件事：

在两个子

@out_array

分享%hash

test2

将return;添加到test2

两个潜艇以外的代码：

my @out_array : shared = ();

test2 sub：

sub test2
{
    my $string = $_[0];
    my %hash : shared;
    $hash{Skeleton} = $string;
    push @out_array, \%hash;
    return;
}

Perl：如何将哈希值推送到子例程之外的数组中

3 个答案: