perl - 如何从引用的变量中获取 "unlink"Perl 数组引用？

Question

在 Perl 5.10.1 中:

#!/usr/bin/perl

my @a = (1, 2, 3);
my $b = \@a;
print join('', @{$b}) . "\n";
@a = (6, 7, 8);
print join('', @{$b}) . "\n";

这将打印 123，然后打印 678。但是，我希望两次都得到 123(即重新分配 @a 的值不会更改 $b 的数组引用)。我怎样才能做到这一点？

Answer 1

引用 @a 的副本。

my $b = [ @a ];