Perl基础---引用3: 数组的散列

Posted EasyPerl

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Perl基础---引用3: 数组的散列相关的知识,希望对你有一定的参考价值。

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

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

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


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

__DATA__


tom 18 173

cat 22 155

easy 25 169

perl 19 177


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


首先定义外围数据结构, 散列:

my %hash;

逐行读取data段数据:

while(<DATA>){

        过滤掉空行:

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;








以上是关于Perl基础---引用3: 数组的散列的主要内容,如果未能解决你的问题,请参考以下文章

如何合并散列数组以获取值数组的散列

Perl引用介绍

perl 引用

perl 中的引用

设计一个重新散列函数......如何避免相同的散列?

R中的缓存/记忆/散列选项