Perl线程与数组的哈希值
|
我正在尝试与threads :: 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\";
}
没有找到相关结果
已邀请:
2 个回复
联课
函数正在标量上下文中评估。因此它实际上是在做$array{$tempName} = 11变量，因为已经创建了数组引用。sub doWork { $tempName = shift; $array{$tempName} = [1 .. 11]; }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; } }与任何有意义的内容都不匹配。我不能告诉你你想在这里做什么...撵穆