perl的匿名引用

perl中列表不能嵌套，只能通过引用的方式构建复杂的结构。引用其实就是c中的指针，只不过perl中对指针，也就是一个地址的声明和取值有自己的一套方法。

1、先复习普通标量的引用方法：

[vagrant@bio ~]$ cat t1.pl
use v5.;
use warnings;
my $a=;
my $p=\$a;
say $a;
say $p;
say ${$p};
say $$p;
say "==========";
my @arr=(,,);
my $pArr=\@arr;
say @arr;
say $pArr;
say ${$pArr}[];
# say $pArr[0];
say $pArr->[];
[vagrant@bio ~]$ perl t1.pl

SCALAR(0xd8f6d0)

==========

ARRAY(0xd9c7f0)

2、以一个数组说明：

[vagrant@bio ~]$ cat t1.pl
use v5.;
use warnings;
my @arr1=(,,); #声明一个数组
my @arr2=(,,); #声明另一个数组
$arr1[]=\@arr2;  #把数组arr1中下标为3的值，存放一个引用标量，该标量存放对数组arr2的引用
say @arr1;   #打印数组1
[vagrant@bio ~]$ perl t1.pl
123ARRAY(0x1e47798)

3、如果想对数组中的引用中的结构（这里是另一个数组），进行取值，有3中方法。

[vagrant@bio ~]$ cat t1.pl
use v5.;
use warnings;
my @arr1=(,,);
my @arr2=(,,);
$arr1[]=\@arr2;
say @arr1;
#say $arr1[3]  #错误
say $arr1[][];  #第一种最简单，好像一个2维数组
say ${$arr1[]}[];  #标准的引用调用方法
say $arr1[]->[];   #瘦箭头引用方法
[vagrant@bio ~]$ perl t1.pl
123ARRAY(0x14627d8)

[vagrant@bio ~]$