perl6 数组赋值：指针还是副本？

Question

在perl6中，我想将一个数组分配给另一个数组，并使结果数组成为不同的实体，但似乎直接分配和克隆都不能达到我想要的效果。有没有一种方法可以用一个表达式复制数组而不是编写循环例程？

To exit type 'exit' or '^D'
> my @a=<a b c d e>
[a b c d e]
> my @b = <1 2 3 4 5 6 7>
[1 2 3 4 5 6 7]
> my @c = @a
[a b c d e]
> @c[3]
d
> @c[3]=3;
3
> @c
[a b c 3 e]
> @a
[a b c d e]
> @c === @a
False
> @c == @a
True          # this is unexpected, @c and @a should be different, right?
> my @[email protected]
[a b c d e]
> @x[3]=3
3
> @x
[a b c 3 e]
> @x === @a
False
> @x == @a
True         # unexpected, @x and @a should be distinct things, right?
>

Answer 1

你很不幸没有与@b进行比较，这可能会帮助你弄清楚:)

==

是数字比较，因此当您要求将列表作为数字进行比较时，它会选择元素的数量作为表示。 Perl 5 或 6 中的运算符强制涉及的类型。如果您想测试数组的元素是否相同，请尝试

eqv

运算符。

比较数组的长度，因此以下说法正确：

@a == @c == @x == 5

尝试：

my @a = <a b c d e>;
my @b = <1 2 3 4 5>;
@a eqv @b;

您可能想查看一些有关这些运算符的文档。智能匹配

~~

运算符可能更符合您对

==

的期望。

https://docs.perl6.org/routine/$EQUALS_SIGN$EQUALS_SIGN https://docs.perl6.org/routine/$TILDE$TILDE