关于Perl哈希数据结构的输出总结
直接上代码，具体效果可以执行代码来看看：[*]#!/usr/bin/perl -w
[*]##Code Begin##############
[*]use strict;
[*]
[*]print "方法一：中间数组+keys和values函数法\n";
[*]my %hash = ("a"=>1000,"b"=>2000,"c"=>3000);
[*]if (%hash) {
[*] my @k = keys %hash;
[*] my @v = values %hash;
[*] my $count = keys %hash; #得到 3，是指有3 个 key/value 对
[*] print "@k","\n";
[*] print "@v","\n";
[*] print "$count\n";
[*]} else {
[*] print "The %hash is not defined any elment already! \n";
[*]};
[*]
[*]print "方法二:while+each函数法\n";
[*]while ((my $key, my $value) = each %hash){
[*]print "$key => $value\n";
[*]}
[*]
[*]print "方法三：foreach+keys函数法\n";
[*]foreach (sort keys %hash) {
[*]print "$_ => $hash{$_}\n";
[*]# 也可以使用额外的临时变量$key
[*]# foreach $key (sort keys %hash) {
[*]# print “ $key => $hash{key}\n” ;
[*]};
[*]##Code End################
[*]print `sed -n '\$!p' $0 |cat -n`;
页:
[1]