pertl 遍历hash中的元素

1.使用each函数，无序

while (($key, $value) = each %hash){
print “$key => $value/n”;
}

2.使用foreach函数，可以有序

foreach $key (sort keys %hash){
$value =$hass{$key};
print “$key => $value/n”;
#也可以不使用额外的临时变量$value
#print “$key => $hash{key}/n”;
}