使用数组哈希的Perl线程

Question

我正在尝试与线程共享数组的散列：：shared模块，如下所示。

use warnings;
use strict;
use threads;
use threads::shared;
my @allThreads;
share (my %array);
foreach ('alpha', 'beta', 'gamma')
{
    $name = $_;
    push @allThreads, threads->new(&doWork, $name);
}
foreach my $thread (@allThreads){ $thread->join; } # Wait for all threads to join.
sub doWork
{
    $tempName = shift;
    my @results = `/bin/ls /home/*`;
    doMoreWork($tempName, @results);
}
sub doMoreWork
{
    my $myName = shift;
    my @tempResults = @_;
    foreach (0 .. $#tempResults)
    {
        if($tempResults[$_] =~ /(w+)/)
        {
            my $x = $1;
            $array{$x} = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11]
        }
    }
}
foreach (keys %array)
{
    print "$array{$_}->[3]n";
}

我得到以下错误：

在myCode.pl.中使用"strict refs"时，不能将字符串（"11"）用作ARRAY ref

我需要按数组元素对这个共享的数组哈希进行排序。

如有任何帮助，我们将不胜感激。

Answer 1

您的doWork函数正在标量上下文中计算@temp。所以它是有效地做$array{$tempName} = 11。

您也可以省略temp变量，因为[ ... ]已经创建了一个数组引用。

sub doWork
{
    $tempName = shift;
    $array{$tempName} = [1 .. 11];
}

[编辑]

此版本的doMoreWork至少运行：

sub doMoreWork
{
    my $myName = shift;
    my @tempResults = @_;
    if(/(w+)/)
    {
        my $x = $1;
        share (my @temp);
        @temp = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11);
        $array{$x} = @temp;
    }
}

但没有做任何有用的事情，因为CCD_。我不知道你想在这里做什么。。。

Answer 2

您可以随时尝试使用此处的简化项目https://github.com/PabloK/ThreadedArray它旨在简化对数组中一组元素的处理。