Perl 6是否有内置工具来制作嵌套数据结构的深层副本？

Question

Perl 6是否有内置工具来制作嵌套数据结构的深层副本？

添加示例:

my %hash_A = (
    a => {
        aa => [ 1, 2, 3, 4, 5 ],
        bb => { aaa => 1, bbb => 2 },
    },
);


my %hash_B = %hash_A;
#my %hash_B = %hash_A.clone; # same result

%hash_B<a><aa>[2] = 735;

say %hash_A<a><aa>[2]; # says "735" but would like get "3"

Answer 1

my %A = (
    a => {
        aa => [ 1, 2, 3, 4, 5 ],
        bb => { aaa => 1, bbb => 2 },
    },
);

my %B = %A.deepmap(-> $c is copy {$c}); # make sure we get a new container instead of cloning the value

dd %A;
dd %B;

%B<a><aa>[2] = 735;

dd %A;
dd %B;

使用.clone和.deepmap请求数据结构的副本/深层副本.但不要赌它.任何对象都可以定义自己的.clone方法,并用它做任何想做的事情.如果必须进行变异,因此必须进行克隆,请确保使用大型数据集测试程序.糟糕的算法可能使程序在生产中几乎无用.