Perl：数组引用与匿名数组-Perl:arrayreferenceversusanonymousarray

11  

This creates a shallow copy of the array:

这将创建数组的浅表副本：

$arraycont[0] = [@array];

$ arraycont [0] = [@array];

Whereas this just creates a reference to it:

虽然这只是创建了它的引用：

$arrayref[0] = \@array;

$ arrayref [0] = \ @array;

Since you later modify the array:

由于您以后修改了数组：

@array = qw(5 6 7 8);

@array = qw（5 6 7 8）;

arrayref still points to the same array location in memory, and so when dereferenced in the print statements it prints the current array values 5 6 7 8.

arrayref仍指向内存中的相同数组位置，因此当在print语句中取消引用时，它会打印当前数组值5 6 7 8。

3  

The first block stores the address of @array. REferences are like 'live streaming', you get current status. So if you create a reference to @array, like \@array, when you de-reference it you will always get what @array points at the moment of de-reference. When you de-refer @array was having (5 6 7 8)

第一个块存储@array的地址。引用就像“直播”，您获得当前状态。因此，如果您创建对@array的引用，例如\ @array，当您取消引用它时，您将始终获得@array在取消引用时指向的内容。当你取消推荐@array有（5 6 7 8）

When you do [@array] its like recording the live streaming into your disk. So when you (re)play the recorded content you get what was streamed at the time of recording. So when you refer $arraycont[0] you get what @array was having at the time of copying that is
(1 2 3 4)

当你执行[@array]时，就像将实时流媒体录制到磁盘中一样。因此，当您（重新）播放录制的内容时，您将获得录制时流式播放的内容。所以当你引用$ arraycont [0]时，你会得到@array在复制时所拥有的内容（1 2 3 4）

0  

You made stored references to a single array in both $arrayref[0] and $arrayref[1]. You should have used different arrays.

您在$ arrayref [0]和$ arrayref [1]中对单个数组进行了存储引用。你应该使用不同的数组。

my @refs;

my @array1 = qw(1 2 3 4);
push @refs, \@array1;

my @array2 = qw(5 6 7 8);
push @refs, \@array2;

In practice, my is executed in each pass of a loop, creating a new array each time.

实际上，我在循环的每次传递中执行，每次都创建一个新数组。

my @refs;
while ( my @row = get() ) {
   push @refs, \@row;
}

In rare occasions where you have to clone an array, you can use:

在极少数情况下，您必须克隆数组，您可以使用：

use Storable qw( dclone );

push @refs, [ @row ];       # Shallow clone
push @refs, dclone(\@row);  # Deep clone