Perl中的hash类型
hash类型
hash类型也称为字典、关联数组、映射(map)等等,其实它们都是同一种东西:键值对。每一个Key对应一个Value。
- hash会将key/value散列后,按序放进hash桶。散列后的顺序和存放数据的顺序无关
- hash类型的key只能是字符串,value可以是字符串、数值、undef或其它类型的标量
- hash的key必须唯一,不能重复
- perl中使用符号
%
表示hash类型,如%myhash
。使用$hashname{index}
访问hash中的元素 - perl中可以单独对每一个hash元素赋值,也可以以列表的方式一次性赋多个值(初始化时可用)
- 一次性赋值多个时,每个value跟在自己的key后面,用逗号分隔,每个key/value对之间也使用逗号分隔
- 也就是说,它们的顺序是:
{键1,值1,键2,值2...}
- 也就是说,它们的顺序是:
- perl中可用使用"胖箭头"(
=>
)替代逗号,让整个hash看起来很清晰 - 访问hash中不存在的元素,会返回undef
$phone_num{longshuai}="18012345678";
$phone_num{xiaofang}="17012345678";
$phone_num{fairy}="16012345678";
等价于以下几种方式:
%phone_num1=("longshuai","18012345678", # 注意是括号,不是大括号
"xiaofang","17012345678",
"fairy","16012345678");
my %phone_num1=("longshuai" => "18012345678", # 将hash声明为局部hash
"xiaofang" => "17012345678",
"fairy" => "16012345678");
- 使用胖箭头赋值的时候,如果key命名够规范(字母、数字、下划线),可以省略key部分的引号,perl会自动加上。在引用hash中的元素时,也一样可省略引号。如
$phone_num{"longshuai"}
和$phone_num{longshuai}
都有效
%phone_num1=(longshuai =>"18012345678",
xiaofang =>"17012345678",
fairy =>"16012345678");
如果key命名不够规范,则不会自动加上引号。有时候,这可能会当作一个表达式进行计算:
$myhash{foo.bar} # $myhash{foobar}
- 可以将hash赋值给另一个hash
%hash_name1 = %hash_name2;
Perl中的这个赋值过程和一般语言不太一样,它会先将%hash_name2
展开成列表,然后再将这个列表赋值给新列表%hash_name1
。
- 可以直接输出hash,如
print %myhash
,但不能加上引号,例如print "%myhash"
不会输出hash里的元素
%myhash = (key1,value1,key2,value2,key3,value3);
print %myhash,"\n";
print "%myhash","\n";
- perl中的ENV:perl可以通过ENV这个hash直接访问操作系统的环境变量
print $ENV{PATH}; # 输出操作系统的PATH环境变量
如果perl想访问操作系统中某个变量,可以直接在操作系统中设置,然后通过perl访问:
$ myvar=2;export myvar;
print $ENV{myvar};
hash相关函数
主要有reverse()、keys()、values()、exists()和delete()。
- 可以用reverse函数反转hash。它会将hash当作列表一样反转,然后再将其当作hash。所以,原hash的key会变成后来的value,原value会变成后来的key
(key1,value1,key2,value2,key3,value3)
反转过程中:
(value3,key3,value2,key2,value1,key1)
反转后新的hash可能之一:
(value2,key2,value1,key1,value3,key3)
因为反转为新的hash时,是以原来的value当作新的key,所以可能会有重复的新key,perl采取的是覆盖生效:后存储的覆盖先存储的。
再者,反转为新的hash时,会对新的key重新hash计算存储到hash桶里,所以反转后的顺序不一定真的是反序的。这里的reverse更注重key/value的反转。
- keys函数和values函数,分别返回key列表和value列表
- keys函数和values函数在标量上下文中返回的是列表元素的个数
%myhash = (key1,value1,key2,value2,key3,value3);
@keys = keys %myhash;
@values = values %myhash;
$keys_num = keys %myhash;
print @keys,"\n";
print @values,"\n";
print $keys_num,"\n"; # 返回3
显然,key列表和value列表的顺序和存储的顺序可能是不一致的,但至少keys函数返回的列表中,如果key1排在最前,那么values函数返回的列表中,value1也肯定排在最前
- 只要hash中包含任何一个键值对,在于布尔值判断上就返回真
if(%hash){
print "True\n";
}
- exists()函数判断hash中是否存在某个key
- delete()函数用于删除某个key/value,如果要删除的key/value不存在,则直接返回,不会报错
遍历hash
- each可以遍历hash。each可以遍历数组和hash,它会获取索引和对应的值
- each每次都获取一个键值对,并作上位置标记,以便下次从此开始继续遍历。换句话说,数组和hash有内部的迭代器
- foreach也可以遍历hash,但它只能通过keys函数来遍历Key,间接遍历hash
%myhash = (key1,value1,key2,value2,key3,value3);
# each迭代遍历
while (($key,$value) = each %myhash){
print "$key: $value","\n";
}
# foreach迭代遍历
foreach my $key (sort keys %myhash){
print $key,$myhash{$key},"\n";
}
需要注意的是each遍历,是不保证顺序的,foreach可以按照一定keys的顺序进行遍历。另外,在上面while each迭代的过程中,有几个过程:
each %myhash
首先迭代第一个键值对;- 将获取到的第一个键值对赋值给
($key,$value)
; - 判断
while
的条件真假,因为赋值后得到的是一个包含键、值的列表,在while的标量上下文中,它返回列表中元素数量2,所以为真; - 迭代到最后一个,each迭代不到key/value,所以列表元素数量为0,while的条件返回false,不会继续执行下去。
Perl中的hash类型的更多相关文章
- 6、Redis中对Hash类型的操作命令
写在前面的话:读书破万卷,编码如有神 -------------------------------------------------------------------- ------------ ...
- python - hash类型操作
Redis在内存中存储hash类型是以name对应一个字典形式存储的 常用操作 在name对应的hash中获取根据key获取valuehget(name,key) 在name 对应的hash 中设备键 ...
- Redis中Value使用hash类型的效率是普通String的两倍
什么Redis? 点击这里 最近要开发的一个项目是分布式缓存组件,解决参数缓存高效获取的问题.参数达到了500万级别,刚刚开始了解Redis.做设计的时候考虑到Value使用哪种类型的问题? 主要面临 ...
- hash 在 perl 中的用法(转载)
Perl的数据结构中最有趣的一个特性是哈希(hash),它使得在数据片段之间建立键-值(key-value)关联成为可能.虽然这些哈希要远远比普通系统中以数字索引的数组用途更广,但是往往也会使初学者不 ...
- redis中关于使用string类型还是hash类型
前篇:最近在做一个将redis中大数据量进行合并缩减优化的工作,其中一项按月将数据进行合并.将一个月的数据放入一个key-value键值对中. 例:p2d20180901-3.p2d20180902- ...
- Python(Redis 中 String/List/Hash 类型数据操作)
1.下载 redis 模块 pip install redis 2.redis 数据库两种连接方式 简单连接 decode_responses=True,写入和读取的键值对中的 value 为 str ...
- 在 Perl 中使用 Getopt::Long 模块来接收用户命令行参数
我们在linux常常用到一个程序需要加入参数,现在了解一下 perl 中的有关控制参数的模块 Getopt::Long ,比直接使用 @ARGV 的数组强大多了.我想大家知道在 Linux 中有的参数 ...
- 【转载】Perl中的引用
为什么使用引用? 在perl4中,hash表中的value字段只能是scalar,而不能是list,这对于有些情况是很不方便的,比如有下面的数据: Chicago, USAFrankfurt, Ger ...
- 在Perl中使用Getopt::Long模块来接收用户命令行参数
我们在linux常常用到一个程序需要加入参数,现在了解一下perl中的有关控制参数的函数.getopt.在linux有的参数有二种形式.一种是–help,另一种是-h.也就是-和–的分别.–表示完整参 ...
随机推荐
- [swarthmore cs75] Compiler 5 – Egg-eater
课程回顾 Swarthmore学院16年开的编译系统课,总共10次大作业.本随笔记录了相关的课堂笔记以及第7次大作业. 抽象语法: 存储方式: 栈中的数据如果最后三位(tag bits)是001表示元 ...
- 利用Python+163邮箱授权码发送邮件
背景 前段时间写了个自动打卡的脚本,但是脚本不够完善,我需要知道,打卡到底成没成功,因此,我想到了用Python执行完代码之后,再执行一段发送邮件的代码.需求开始明确了,就开始分析和写代码实现吧. 分 ...
- vscode配置git及码云
1.将代码放到码云 到码云里新建一个仓库,完成后码云会有一个命令教程按上面的来就行了 码云中的使用教程: Git 全局设置: git config --global user.name "A ...
- 安装easygui
1.下载0.96的easygui 官网: http://easygui.sourceforge.net/ 2.解压后得到文件夹,里面有两个文件分别为,setup.py和easygui.py 3.在py ...
- linux redis 多实例安装
前言: Redis 是一个开源(BSD许可)的,内存中的数据结构存储系统,它可以用作数据库.缓存和消息中间件. 它支持多种类型的数据结构,如 字符串(strings), 散列(hashes), 列表( ...
- 一次 Java 内存泄漏的排查
由来 前些日子小组内安排值班,轮流看顾我们的服务,主要做一些报警邮件处理.Bug 排查.运营 issue 处理的事.工作日还好,无论干什么都要上班的,若是轮到周末,那这一天算是毁了. 不知道是公司网络 ...
- 基于Fusioncharts的报表统计
先了解fusioncharts插件,fusioncharts是一款基于XML和flash的报表组件,支持Java.PHP.AngularJS等等开发语言,所以,开发出来,加入swf文件,就可以出现动态 ...
- java处理数据库不支持的emoji表情符
一般数据库的编码是utf8,utf8是不支持存储表情符的,当存入的微信昵称带有表情符时就会出现乱码情况,有两种解决方法: 1.mysql数据库升级到5.5版本以上,utf8改为utf8mb4,utf8 ...
- django数据库连接快速配置
DATABASES = { 'default': { 'ENGINE': 'django.db.backends.mysql',#数据库驱动 'NAME': 'login_db',#数据库名字 'US ...
- 吴恩达机器学习笔记35-诊断偏差和方差(Diagnosing Bias vs. Variance)
当你运行一个学习算法时,如果这个算法的表现不理想,那么多半是出现两种情况:要么是偏差比较大,要么是方差比较大.换句话说,出现的情况要么是欠拟合,要么是过拟合问题.那么这两种情况,哪个和偏差有关,哪个和 ...