哈希

哈希是一种数据结构,它和数组的相似之处在于可以容难任意多的值并能按需取用,而他和数组的不同在于索引的方式,数组是以数字为索引而哈希则是以名字为索引。

哈希的键是唯一的,哈希的值可以重复。

哈希的应用场景

举例:

  • 按名字找姓;
  • 按主机名找IP地址或者按照IP地址找主机名;
  • 按照单词统计其出现次数;
  • 按用户名统计每个人使用的磁盘块数量;
  • 按照驾照号码找出姓名。

访问哈希元素

如:$hash{$some_key} //注意使用的是大括号{} 不是中括号

赋值: $family_name{'fred'}='flintstone';

    $family_name{'barney'}='rubble';

访问整个哈希

%some_hash=('foo',35,'bar',12.4); // %<哈希名>=(key,value,key,value......)

可以用下面代码简单查看:

my @k=keys %some_hash;//keys后面讲解

foreach (@k)

{

  print "$_=>$some_hash{$_}"."\n";

}

注意输出顺序可能是乱序。

@tmp_hash=%some_hash==>结果:tmp=foo 35 bar 12.4

哈希赋值

my %new_hash=%old_hash;==>会为new_hash分配内存,然后将old_hash的值赋过去。并不是简简单单引用

my %inverse_hash=reverse %any_hash;

 

上面这个比较适用于:按主机名找IP地址或者按照IP地址找主机名

胖箭头=>

主要目的是为了对下面这种模式的改善:%some_hash=('foo',35,'bar',12.4);

如:my %some_hash=(

  'foo'=>35,

  'bar'=>12.4,

  'dnio'=>undef,

);

注意:每一行的最后都有逗号.

哈希函数

keys values

keys函数能返回哈希的键列表,values函数能返回对应的值的列表。

如:my %hash=('a'=>1,'b'=>2,'c'=>3,);

  my @k=keys %hash;// 将会得到 a b c

  my @v=values %hash;// 将会得到 1 2 3

如果使用: my $count=keys %hash;//将会得到3 也就是说hash有3对键

each函数

如果需要迭代整个哈希,常见的用法就是用each函数.每次返回的就是hash表的键、值对。直到所有的元素都被访问完。

如:while (($k,$v)=each %hash){

  print "$k=>$v\n";

}

再比如:each返回键-值对的顺序是乱序的,但它与keys和values返回的顺序相同,也就是hash的自然顺序。如果需要依次处理hash,则只需要对键排序就行

foreach $key(sort keys %hash){

  $value=$hash{$key};

  say "$key=>$value";

}

exists函数

检查哈希表中是否存在某个键。

if (exists $hash{'foo'}){

  say "there is a foo";

}

delete函数

从哈希中删除指定的键和相对应的值。(总是成功)

my $person="betty";

delete $hash{$person};

%ENV哈希

Perl程序既然运行在某个环境中,就需要对周围的环境有所感知。Perl访问这些环境信息的方法就是访问%ENV哈希。如:

print "PATH is $ENV{PATH}";

 

 posted on 2015-07-22 16:58  lukexwang  阅读(442)  评论(0编辑  收藏  举报