Perl基础 Perl 哈希表概述

开发 架构
本文向大家介绍一下Perl 哈希表的概念,Perl 哈希表是一种数据结构,和数组类似,可以将值存放到其中,或者从中取回值。

本文和大家重点讨论一下什么是Perl 哈希表的概念,Perl 哈希表和数组不同,其索引不是数字,而是名字。也就是说,索引(这里,我们将它叫key)不是数字而是任意的***的字符串。

Perl基础 Perl 哈希表

一、什么是Perl 哈希表

Perl 哈希表是一种数据结构,和数组类似,可以将值存放到其中,或者从中取回值。但是,和数组不同的是,其索引不是数字,而是名字。也就是说,索引(这里,我们将它叫key)不是数字而是任意的***的字符串。

key可以是任意的字符串,你可以使用任何的字符串作为key,但它们是***的。
另一种思考hash的方法是,把它看作一堆数据(abarrelofdata),每一个数据都有一个相应的标签。可以通过标签访问此标签对应的元素。但其中是没有“***个”元素的概念的。在数组中,数组元素从0,1,2开始编号。但在hash中,没有确定的顺序,因此也没有***个元素。只是一些key/value对的集合。
keys和values均为任意的标量,但keys通常转换为字符串。因此,如果将表达式50/20作为keys,则其通常被转换为3字符的字符串“2.5”。
由于Perl的“没有不必要的限制”的设计哲学:hash可以是任意大小,从空hash(没有key/value对),到任何你内存允许的大小。
keys是***的,但values可以重复。hash的value可以是数字,字符串,undef,或者它们的混合,但key是***的。

为什么使用Perl 哈希表

可以把hash看作一个简单的数据库,其中每一个key下面可以有一块数据。如果你的任务是关于:“查询重复的”,“***的”,“交叉引用的”,“查询表”,则hash很可能在这类应用中帮上你的忙。

二、Perl 哈希表元素的存取

要访问hash元素,可以使用下面的语法:$hash{$some_key}
这和访问数组元素的方法有些类似,这里下标(key)上使用的是花括号({}),而不是方括号([])。现在key的表达式是字符串,而非数字。
hash的名字和Perl中其它的标识符的命名规则是一样的(字母,数字,下划线组成,但不能由数字开头)。
访问不存在的hash元素将得到undef。

1.作为整体的hash

要引用整个hash,使用百分号(%)作为前缀。
为了方便,hash可以转换为列表,或者反过来。

2.Perl 哈希表赋值

可以使用如下的语法在hash之间拷贝:
%new_hash=%old_hash;
将hash转变成其它形式更加常见。例如,我们可以将hash反转:
%inverse_hash=reverse%any_hash;

3.大箭头符号(=>)

当给hash赋值时,有时并不明显哪些元素是keys,那些是values,因此发明了大箭头符号(=>)。在需要逗号的时候,都可以使用大箭头符号替换。
如:
my%last_name=(
"www"=>1,
"eee"=>2,
);

三、Perl 哈希表函数

某些有用的函数可以对整个hash进行操作。

1.keys和values函数

keys函数会返回此hash的所有keys,values函数将返回所有的values。如果hash中没有元素,则此函数将返回空列表。
my%hash=("a"=>1,"b"=>2,"c"=>3);
printmy@k=keys%hash;
printmy@v=values%hash;

2.each函数

如果想迭代hash的每一个元素,一种通常的方法是使用each函数,它将返回key/value对应的2个元素列表。
当对同一个hash函数进行一次迭代时,将返回下一个key/value对,直到所有的元素均被访问。如果没有更多的key/value对,则each函数将返回空表。
my%hash=("a"=>1,"b"=>2,"c"=>3);
while(($key,$value)=each%hash)
{
print"$key=>$value\n";
}
当然,each返回的key/vlaue对,顺序是混乱的(它其顺序和keys和values函数返回的顺序相同)。如果想将其按序排放,可以对它们排序(使用sort)。
my%hash=("a"=>1,"b"=>2,"c"=>3,"d"=>4);
foreach$key(sortkeys%hash)
{
$value=$hash{$key};
print"$key=>$value\n";
}

四、Perl 哈希表的通常用法

1.exists函数

要查看hash中是否存在某个key,可以使用exists函数,如果hash中存在此key,则返回true,与是否有对应的value无关。
my%hash=("a"=>1,"b"=>2,"c"=>3,"d"=>4);
if(exists$hash{'a'})
{
print"true";
}

2.delete函数

delete函数将某个给定的key(包括其对应的value)从hash中删除。如果不存在这个key,则什么也不做,不会有警告或者错误信息。
my%hash=("a"=>1,"b"=>2,"c"=>3,"d"=>4);
delete$hash{'a'};
foreach$key(sortkeys%hash)
{
$value=$hash{$key};
print"$key=>$value\n";
}

3.Perl 哈希表元素的内插

你可以在双引号的字符串中使用单个hash元素,但不支持整个hash的内插。
my%hash=("a"=>1,"b"=>2,"c"=>3,"d"=>4);
foreach$key(sortkeys%hash)
{
print"$key=>$hash{$key}\n";
}
<type="text/javascript"><type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

【编辑推荐】

  1. Perl语言编程之Perl 哈希表篇
  2. 经验总结 Perl的安装配置步骤
  3. Perl语言中的“指针”用法解析
  4. 揭秘Perl变量中Perl纯变量用法
  5. 深入解析Perl内部函数的使用
责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-13 16:20:21

Perl 哈希表

2010-07-16 13:10:36

Perl哈希表

2010-07-16 10:53:30

Perl基础

2010-07-21 09:50:51

Perl调试

2010-07-16 13:57:13

Perl哈希表

2010-07-20 13:44:02

Perl方法

2010-07-20 16:05:07

Perl包

2010-07-19 09:28:37

Perl关联数组

2010-07-16 13:50:53

Perl哈希表

2010-07-16 12:50:45

Perl语言

2010-07-16 17:38:12

Perl包

2010-07-16 10:44:54

Perl数组

2010-07-13 13:27:13

Perl复杂数据结构

2010-07-19 10:52:39

Perl简单变量

2010-07-13 15:43:57

Perl语言

2010-07-19 09:08:38

Perl模块

2010-07-19 09:52:04

Perl标量

2010-07-21 13:59:59

Perl引用

2010-07-16 13:21:26

Perl哈希表

2010-07-13 10:21:19

点赞
收藏

51CTO技术栈公众号