Копирование массивов из одной ссылки в другую в Perl

Question

У меня есть ссылка на анонимный массив, и я хочу создать ссылку на копию этого массива. Вот как я это делаю:

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

теперь $ ref2 указывает на копию массива. Тем не менее, я не забочусь о @arr. Есть ли способ выполнить такую ​​копию без промежуточной переменной?

Спасибо.

Answer 1

Чтобы создать ссылку на массив, который является копией массива, на который ссылается переменная $ref1, вы можете написать:

my $ref2 = [@$ref1];

Теперь $ref2 - это новая ссылка.