perl哈希

perl哈希

#哈希,哈希的顺序是随机的
$score{"赵"}=99;
$score{"钱"}=97;
%ha=("z",96,"q",90);
%ha1=("z"=>12,"a"=>34);
print $ha{"q"}."\n";
print $ha1{"a"}."\n";

#	把哈希变成数组
@a=%ha1;
#	键值反转
%h=reverse %ha;
#print keys %h."\n";
#print values %h."\n";

#my @k=keys %h;
#my @v=values %h;
#标量上下文，查看哈希键值对数量
my $co=%ha;

while(($key,$value)=each %ha){
print "$key => $value\n";
}

foreach $key (sort keys %ha){
print "$key=>$ha{$key}\n";
}

#	删除哈希
delete %ha{"z"};
#keys
#values
#each
#exists