%hash=('ATGC'=>1,'GATC'=>2,'ATGCG'=>3);
$ref=\%hash;
print "Here is what in the reference\n";
print "$ref\n";
@a=keys %$ref;
@b=values %$ref;
print "@a\n";
print "@b\n";
###########结果###########
Here is what in the reference
HASH(0x2796988)
ATGC ATGCG GATC
1 3 2
网友评论