在perl中将数组从一个引用复制到另一个引用

Question

我有一个匿名数组的引用，我想创建一个对该数组副本的引用。我是这样做的：

my $ref1 = ['a','b','c',];
my @arr = @$ref1;
my $ref2 = \@arr;

现在$ ref2指向数组的副本。但是，我实际上并不关心@arr。有没有办法在没有中间变量的情况下执行这样的副本？

感谢。

Answer 1

要创建对数组的引用，该数组是变量$ref1引用的数组的副本，您可以编写：

my $ref2 = [@$ref1];

现在，$ref2是新参考。