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: 数组的散列的主要内容,如果未能解决你的问题,请参考以下文章