利用Perl的哈希建立键－值数据映射

 

计算哈希的大小

计算哈希大小的最简单方法就是用上述的keys()函数，将哈希中的键提取到一个数组中，然后检索得到数组的大小，操作方法如下：

列表 I

#!/bin/perl

# define hash
%alphabet = ('a' => 'apple', 'b' => 'bat', 'c' => 'cat');

# print number of hash elements
print "The hash has " . scalar(keys(%alphabet)) . " elements ";

 

处理哈希元素

运用while()循环处理一个哈希中的所有元素也比较容易。下面是一个简单的例子：

列表 J

#!/usr/bin/perl

# define hash
%alphabet = ('a', 'apple', 'b', 'ball', 'c', 'cat', 'x', 'xylophone');

# loop over hash
while (($key, $value) = each(%alphabet) ) {
print "$key is for $value ";
}

或者，用前面已经讨论过的for()循环和keys()函数：

列表 K

#!/usr/bin/perl

# define hash
%alphabet = ('a', 'apple', 'b', 'ball', 'c', 'cat', 'x', 'xylophone');

# loop over hash
for $k (keys(%alphabet)) {
print $k . " is for " . $hash . " ";
}

运用嵌套的哈希

Perl 也允许在一个哈希（或数组）中再嵌入一个哈希（或数组）。这样就为构建长而复杂的数据结构提供了很大的灵活性，下面是一个例子：

列表 L

#!/usr/bin/perl

%movies = (
'black' => {'hero' => 'Batman', 'villain' => 'The Penguin'},
'red' => [{'hero' => 'Spiderman', 'villain' => 'Green Goblin'},
{'hero' => 'Superman', 'villain' => 'LexLuthor'}]
);

# retrieve and print values
print $movies . " fights " . $movies . " ";

print $movies[1] . " fights " . $movies[1] . " ";

该代码返回的结果是：

Batman fights The Penguin
Superman fights LexLuthor

这些基本上就是所有你开始了解Perl中的哈希应该知道的。祝你玩的开心，回头见！

共2页: 上一页 [1] 2 下一页

评论加载中…