Perl 教程 之 Perl 哈希 10

Perl 哈希

迭代哈希

我们可以使用 foreach 和 while 来迭代哈希：

实例 - 使用 foreach

!/usr/bin/perl

%data = ('google'=>'google.com', 'baidu'=>'baidu.com', 'taobao'=>'taobao.com');
foreach $key (keys %data){
print "$data{$key}\n";
}
实例 - 使用 while

!/usr/bin/perl

%data = ('google'=>'google.com', 'baidu'=>'baidu.com', 'taobao'=>'taobao.com');
while(($key, $value) = each(%data)){
print "$data{$key}\n";
}
执行以上程序，输出结果为：

baidu.com
google.com
taobao.com