关于Perl哈希数据结构的输出总结

直接上代码，具体效果可以执行代码来看看：

1. #!/usr/bin/perl -w  
2. ##Code Begin##############  
3. use strict;  
4.  
5. print "方法一：中间数组+keys和values函数法\n";  
6. my %hash = ("a"=>1000,"b"=>2000,"c"=>3000);  
7. if (%hash) {  
8.         my @k = keys %hash;  
9.         my @v = values %hash;  
10.         my $count = keys %hash; #得到 3，是指有3 个 key/value 对  
11.         print "@k","\n";  
12.         print "@v","\n";  
13.         print "$count\n";  
14. } else {  
15.         print "The %hash is not defined any elment already! \n";  
16. };  
17.  
18. print "方法二:while+each函数法\n";   
19. while ((my $key, my $value) = each %hash){  
20. print "$key => $value\n";  
21. }  
22.  
23. print "方法三：foreach+keys函数法\n";  
24. foreach (sort keys %hash) {   
25. print "$_ => $hash{$_}\n";  
26. # 也可以使用额外的临时变量$key  
27. # foreach $key (sort keys %hash) {  
28. # print “ $key => $hash{key}\n” ;  
29. };  
30. ##Code End################  
31. print `sed -n '\$!p' $0 |cat -n`; 

     本文转自xiaoyuwang 51CTO博客，原文链接：http://blog.51cto.com/wangxiaoyu/492215，如需转载请自行联系原作者