Perl 变量:哈希变量
Posted sunziying
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Perl 变量:哈希变量相关的知识,希望对你有一定的参考价值。
Perl 哈希变量
哈希是 key/value 对的集合。
Perl中哈希变量以百分号 (%) 标记开始。
访问哈希元素格式:${key}。
1、创建哈希
创建哈希可以通过以下两种方式:
1.为每个 key 设置 value。
$data{‘aa‘} = ‘aa.com‘;
$data{‘bb‘} = ‘bb.com‘;
$data{‘cc‘} = ‘cc.com‘;
1.通过列表设置。
1.1列表中第一个元素为 key,第二个为 value。
%data = (‘aa‘, ‘aa.com‘, ‘bb‘, ‘bb.com‘, ‘cc‘, ‘cc.com‘);
1.2也可以使用 => 符号来设置 key/value。
%data = (‘aa‘=>‘aa.com‘, ‘bb‘=>‘bb.com‘, ‘cc‘=>‘cc.com‘);
1.3以下实例是上面实例的变种,使用 - 来代替引号。
%data = (-aa=>‘aa.com‘,-bb=>‘bb.com‘,-cc=>‘cc.com‘); #使用这种方式 key 不能出现空格。
2、访问哈希元素
访问哈希元素格式:${key}
#!/usr/bin/perl %data = (‘aa‘=>‘aa.com‘, ‘bb‘=>‘bb.com‘, ‘cc‘=>‘cc.com‘); print "$data{‘aa‘} = $data{‘aa‘} "; #aa.com print "$data{‘bb‘} = $data{‘bb‘} "; #bb.com print "$data{‘cc‘} = $data{‘cc‘} "; #cc.com
3、读取哈希值
你可以像数组一样从哈希中提取值。
哈希值提取到数组语法格式:@{key1,key2}。
#!/uer/bin/perl %data = (-aa => 45, -bb => 30, -cc => 40); @array = @data{-aa, -bb}; print "Array : @array "; #Array : 45 30
4、读取哈希的 key 和 value
1.我们可以使用 keys 函数读取哈希所有的键,语法格式如下:
keys %HASH
该函数返回所有哈希的所有 key 的数组。
#!/usr/bin/perl %data = (‘aa‘=>‘aa.com‘, ‘bb‘=>‘bb.com‘, ‘cc‘=>‘cc.com‘); @names = keys %data; print "$names[0] "; #aa print "$names[1] "; #bb print "$names[2] "; #cc
2.我们可以使用 values 函数来读取哈希所有的值,语法格式如下:
values %HASH
该函数返回所有哈希的所有 value 的数组。
#!/usr/bin/perl %data = (‘aa‘=>‘aa.com‘, ‘bb‘=>‘bb.com‘, ‘cc‘=>‘cc.com‘); @names = keys %data; print "$names[0] "; #aa.com print "$names[1] "; #bb.com print "$names[2] "; #cc.com
5、检测元素是否存在
我们可以使用 exists 函数来判断key是否存在,存在的时候读取。
6、获取哈希大小
哈希大小为元素的个数,我们可以通过先获取 key 或 value 的所有元素数组,再计算数组元素多少来获取哈希的大小。
#!/usr/bin/perl %data = (‘aa‘=>‘aa.com‘, ‘bb‘=>‘bb.com‘, ‘cc‘=>‘cc.com‘); @keys = keys %data; $size = @keys; print "1 - 哈希大小: $size "; #3 @values = values %data; $size = @values; print "2 - 哈希大小: $size "; #3
7、哈希中添加元素
添加 key/value 对可以通过简单的赋值来完成。
#!/usr/bin/perl %data = (‘aa‘=>‘aa.com‘, ‘bb‘=>‘bb.com‘, ‘cc‘=>‘cc.com‘); @keys = keys %data; $size = @keys; print "1 - 哈希大小: $size "; #1 - 哈希大小: 3 # 添加元素 $data{‘dd‘} = ‘dd.com‘; @keys = keys %data; $size = @keys; print "2 - 哈希大小: $size "; #2 - 哈希大小: 4
8、哈希中删除元素
但是删除哈希元素你需要使用 delete 函数。
#!/usr/bin/perl %data = (‘aa‘=>‘aa.com‘, ‘bb‘=>‘bb.com‘, ‘cc‘=>‘cc.com‘); @keys = keys %data; $size = @keys; print "1 - 哈希大小: $size "; #1 - 哈希大小: 3 # 删除哈希中的元素 delete $data{‘bb‘}; @keys = keys %data; $size = @keys; print "3 - 哈希大小: $size "; 3 - 哈希大小: 2
以上是关于Perl 变量:哈希变量的主要内容,如果未能解决你的问题,请参考以下文章