perl - 在 Perl 中将引用浅复制到变量中

Question

在 Perl 中，您可以为一个变量分配对另一个变量的引用，如下所示：

my @array = (1..10);
my $ref = \@array;

而且，因为它是一个参考，你可以做这样的事情，这两个变量都会受到影响：

push @array, 11;
push @$ref, 12;

并且两个变量都将包含1..12，因为它们都指向同一个空间。

现在，我想知道是否有任何方法可以做同样的事情，但从一个 ref 开始，然后将该引用分配给一个普通变量。例如：

my $ref = [1..12];
my @array = # something here that makes @array point to the same space $ref contains

我知道我可以像这样分配它：

my @array = @$ref;

但是，那是副本。如果我更改 $ref 或 @array，这些将是独立的更改。

有没有办法让@array 指向与 $ref 相同的变量？

Answer 1

四种方式：

• our @array; local *array = $ref;
• \my @array = $ref;（5.22 新增实验功能）
• use Data::Alias; alias my @array = @$ref;
• 使用魔法（例如tie my @array, 'Tie::StdArrayX', $ref;）

但当然，明智的做法是

my $array = $ref;

并使用@$array而不是@array.

---

上述 Tie::StdArrayX:

package Tie::StdArrayX;
use Tie::Array qw( );
our @ISA = 'Tie::StdArray';
sub TIEARRAY { bless $_[1] || [], $_[0] }

Answer 2

这可以在数组是包变量时使用 typeglobs 来完成。

my $foo = [7,8,9];
our @bar;
*bar = $foo;
$foo->[1] = 3;
print @bar;     # "739"

但是，词法变量（即my @bar）不能用 typeglob 分配。也许有一个围绕PadWalker.