这个例子使用了keys、values、each函数
#!/usr/bin/perl
#hash$family_name{“fred”}=”flintstone”;
$family_name{“barney”}=”rubble”;
foreach $person(qw<barney fred>){
print”I’ve heard of $person $family_name{$person}.\n”
}
%some_hash=(“foo”,”1″,”good”,”2″,”someone”,”3″);
@any_array=%some_hash;
print “@any_array\n”;
my %last_name=(
“fred”=>”flintstone”,
“dino”=>”undef”,
“barney”=>”rubble”,
“betty”=>”rubble”,
);
@new_last_name=%last_name;
my @key=keys %last_name;
my @value=values %last_name;
my $count_key=keys %last_name;
my $countvalue=values %last_name;
print “@new_last_name\nkeys:@key\nvalues:@value\nthe count of keys:$count_key\nthe count of values:$count_value\n”;
while(($key,$value)=each %last_name){
print”$key=>$value\n”;
}
foreach $key(sort keys %last_name){
print”$key=>$last_name{$key}\n”;
}