从Perl 6中的数组值的哈希中检索数据

Question

我有一个包含3个元素的数组：

my @a = <x y z>;

然后我使用Array值创建一个哈希值，并将@a的内容作为其值之一：

my Array %h;
%h<a> = @a;

稍后我检索此值并将其分配给另一个数组：

my @A = %h<a>;

但是我在@A获得的不是一个包含3个元素的数组，而是一个元素的数组，它本身就是一个包含3个元素的数组：

say @A;          # [[x y z]]
say @A[0].elems; # 3

因此， %h<a> push入@A 。

我的代码中的错误在哪里？

UPD：这似乎解决了这个问题，但并没有提高我的理解力。 :)

my @A = @(%h<a>);
say @A; [x y z]

Answer 1

发生这种情况的原因是，必须将数组@a放入容器中以允许作为值存储在Hash 。 当存储到数组@A中时，容器内的某些东西将保留在容器中。 所以，你需要的是在分配给@A时摆脱容器。 您的解决方案是摆脱容器的一种方法，但这会创建一个中间List ，对于大型阵列而言可能会变得昂贵。

正如我所说，你需要摆脱容器。 幸运的是，我们有一个语法：postfix <> ：

my @a = <a b c>;
my %h = a => @a;
my @b = %h<a><>;  # <-- note the <> here
dd @b;    # Array @b = ["a", "b", "c"]

如果你真的希望@b可变，这将是最有效的方法。 或者，如果您希望@b只是原始@a的别名，您还可以绑定：

my @a = <a b c>;
my %h = a => @a;
my @b := %h<a>;  # <-- note the := here
dd @b;    # Array @a = ["a", "b", "c"]

需要注意的是dd输出现在显示@a作为名称，因为它现在确实是一样的@a ：任何修改@a现在还显示， @b ，反之亦然。 如果你还没有改变它们，那也没关系。 如果在你的情况下这是真的，那么这将是最有效的方式，无论是CPU还是内存。