如何将线程共享数组变量复制到普通数组答案

【问题标题】：How to copy thread shared array variable to normal array如何将线程共享数组变量复制到普通数组
【发布时间】：2013-10-07 20:59:15
【问题描述】：

我有一个存储对象的共享数组。

package A;
use threads;
use threads::shared;
our @LISTS;
share(@LISTS);
use B;

my $obj = B->new();
my $shared_test = shared_clone($obj);
push(@A::LISTS, $shared_test);

我想将 LISTS 共享数组复制到普通数组。

我将它复制到另一个模块中的两个数组中，当我修改一个数组时，它会影响另一个数组。这是代码

my @test1 = @A::LISTS;
my @test2 = @A::LISTS;
$test1[0]->set_value("1");
print "value: ".$test1[0]->get_value()."\n";
$test2[0]->set_value("2");
print "value2: ".$test2[0]->get_value()."\n";
print "value1: ".$test1[0]->get_value()."\n";

输出：

value: 1
value2: 2
value1: 2

但我想要@test1、@test2 数组来自共享。我该怎么做？

我想要像这样的输出

value: 1
value2: 2
value1: 1

修改后的值不应该影响另一个数组

【问题讨论】：

对不起，我忘了给出预期的输出。具有预期输出的已编辑帖子。

标签： arrays multithreading perl perl-module

【解决方案1】：

在这种情况下，共享是一条红鲱鱼。如果您省略它，您将看到相同的行为。

@A::LISTS 的元素是受祝福的引用，数组副本中的元素也是如此。因此，$A::LISTS[0] 指向内存中的某个位置，而您在 $test1[0] 中的副本指向相同的位置——换句话说，它们拥有相同的对象。

您需要明确地为您的对象创建单独的副本以实现您想要的：

use Clone qw(clone);

my @copies = map { clone($_) } @A::LISTS;

【讨论】：

这里我无法访问 $copies[0]->get_value();值，因为它正在存储到地图中。