PERL中的哈希表操作

前端之家收集整理的这篇文章主要介绍了PERL中的哈希表操作前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

哈希表究其实质而言就是一种数据结构,可以随机存取,没有上限,但是不同之处则在于数组呢,是根据数组来确定所要求的数据在数组中的偏移量,而哈希则是以名字来进行检

索,或者说作为索引值的,也就是说检索用的键不是数字,而是保证唯一性的字符串,即键值,键值必须保持唯一性!!

需要指出的是,虽然哈希表的键的名称要求必须唯一,但是对于键的值,则是可以相同的。

$family_name{"fred"}="John";
$family_name{"barney"}="rubble";
foreach $person(qw< fred barney >)
{
print "i have heared the name is ".$family_name{$person}."\n";
}

这样就可以随着使用而定义,开始的时候我在想这样是不是就跟C++中的结构体类似?但是之后想了想发现,结构体必须在使用之前定义,远没有哈希这样灵活,哈希成员的访问

使用{},不同于数组的[],

也可以动态的创建哈希元素

$family_name{"tmp"}="test";极富灵活性!!!

对于哈希表中某个元素的访问类似于数组,首先是哈希表名称,不过其索引应该使用花括号,然后数组下标被字符串代替。

$tmp=$family_name{"tmp"};

对于哈希中没有的元素会使用undef最为返回值代替

使用胖箭头的方式定义哈希列表

 %last_time=(
"fred"=>"hehe",
"dino"=>undef,
"barney"=>"rubble",
"betty"=>"rubble",);#整个列表以一个额外的逗号结束
foreach (qw<fred dino barney betty>)
{
   
print $last_time{$_}."\n";
}

这里要注意的是,在使用胖箭头方式定义哈希表的时候,应该使用小括号,并不像单个定义哈希元素时使用大括号的方式

keys 和values函数

my %hash=("a"=>1,"b"=>2,"c"=>3);
my @k=keys %hash;
#获得hash表的键名称
foreach(0..(@k-1))
{
print "the hash keys are".$k[$_]."\n";
}
#获得哈希表的值
my @m=values %hash;
foreach (0..(@m-1))
{
print "the hash values are".$m[$_]."\n";
}
exist函数
my %Hight=(
    "li"=>3,
    "zhang"=>5,
    "mi"=>5,
);
if(exists $Hight{"li"})#exists函数只是检查该哈希表中是否有键名是"li",与键值无关
{
    print $Hight{"li"};
}
delete函数

my %Hight=(
    "li"=>3,
);
if(exists $Hight{"li"})
{
    #执行到此说明存在键名是"li"的键
    delete $Hight{"li"};#说明已经不存在该键名是li的键
    
 
}
哈希函数的遍历
my %Hight=(     "li"=>3,    "zhang"=>5,    "mi"=>5,); foreach(@k=keys %Hight) {     print $Hight{$_}."\n"; }

猜你在找的Perl相关文章