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

处理哈希元素

运用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中的哈希应该知道的。祝你玩的开心，回头见！

内容导航

• 第1页：利用Perl的哈希建立键－值数据映射
• 第2页：利用Perl的哈希建立键－值数据映射(2)
• 第3页：利用Perl的哈希建立键－值数据映射(3)