浅复制引用到的变量在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。

---

上述领带:: 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）不能被分配到与类型团，虽然。 也许在PadWalker周围建立了一个词法解决方案或解决方法。