raku - 如何在 Perl 6 中制作哈希数组？

Question

如何制作一个已被插入数组且独立于“源”哈希的哈希？

my %country;
my Hash @array;

%country{ 'country' } = 'France';
@array.push(%country);
%country{ 'country' } = 'Germany';
@array.push(%country);

.say for @array;

输出是:

{country => Germany}
{country => Germany}

当然这不是我想要的。

Answer 1

当您将散列 %country 推送到数组时，您正在推送对 %country 的引用。这样，每个数组元素将引用相同的原始哈希 %country。当您更改哈希的值时，所有数组元素都将反射(reflect)此更改(因为它们都引用相同的哈希)。如果你想在每次推送时都创建一个新的哈希，你可以尝试推送一个匿名哈希。例如:

%country{ 'country' } = 'France';
@array.push({%country});
%country{ 'country' } = 'Germany';
@array.push({%country});

这样，每次都会推送对 %country 副本的引用(而不是对 %country 的引用)。

输出:

{country => France}
{country => Germany}