perl数组硬引用_Perl基础---引用3: 数组的散列

Perl内置的数据结构数组， 散列都是单层次的数据结构， 在日常使用中， 我们经常需要多几层的嵌套数据结构。

在Perl中， Perl允许组合和嵌套数组和散列， 以创建任意复杂的数据结构。通过引用， 可以创建多层次复杂的数据结构。

我们通过具体例子来看如何创建和使用嵌套的数据结构。

我们有以下的一些数据，需要读取到合适的数据结构中， 把它们写在程序最后的数据段中：

__DATA__

tom 18 173

cat 22 155

easy 25 169

perl 19 177

我们可以看到每行的数据格式都是一样的， 可以以名字来区分， 因此外层的数据使用散列比较合适， 内层因为只是2个数字， 因此直接使用数组更为合适， 也就是我们需要一个数组的散列， 这样的数据结构。

首先定义外围数据结构， 散列：

my %hash;

逐行读取data段数据：

while(){

过滤掉空行：

next if /^\s*$/;

根据非空字符来分割数据：

my @values = split /\s+/, $_;

把第一个数据拿出来当散列的键

my $name = shift @values;

剩下的数据的引用来当作散列的值， 注意，这边只能使用引用， 不可以把数组来当作散列的值

$hash{$name} = \@values;

}

读取数据：

for my $name(keys %hash){

由于我们存储的是数组的引用， 因此读出来的也是引用

my $valueref = $hash{$name};

我们需要进行解引用

my @value    = @$valueref;

print "$name: $value[0] $value[1]\n";

}

读取部分是为了看的更清晰所以这么写， 熟悉了以后一般可以如下省略：

print "$_: $hash{$_}->[0] $hash{$_}->[1]\n"  for keys %hash;