perl中hash数组的相关的例子

#!/usr/bin/perl
my %hash1=("wilma"=>789,
           "barney"=>456,
           "dino"=>234);
my @k=keys %hash1;            # keys
my @v=values %hash1;          #values
print "@kn";
print "@vn";

while (($key,$value)=each %hash1){    #print
       print "$key=>$valuen";
  }
print "%hash1nn";

#delete 函数
my $person="wilma";
delete $hash1{$person};
while (($key,$value)=each %hash1){    #print
       print "$key=>$valuenn";
  }

#exsists function
if(exists $hash1{"dino"}){
     print "hey,there is a lib card for wilma!n";
}#!/usr/bin/perl
my %hash1=("wilma"=>789,   #给hash数组赋值
           "barney"=>456,
           "dino"=>234);
my @k=keys %hash1;            # keys
my @v=values %hash1;          #values
print "@kn";
print "@vn";

while (($key,$value)=each %hash1){    #print
       print "$key=>$valuen";
  }
print "%hash1n";