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'}\n"; #aa.comprint "\$data{'bb'} = $data{'bb'}\n"; #bb.comprint "\$data{'cc'} = $data{'cc'}\n"; #cc.com

3、读取哈希值
你可以像数组一样从哈希中提取值。
哈希值提取到数组语法格式：@{key1,key2}。

#!/uer/bin/perl%data = (-aa => , -bb => , -cc => );@array = @data{-aa, -bb};print

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]\n"; #aaprint "$names[1]\n"; #bbprint "$names[2]\n"; #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]\n"; #aa.comprint "$names[1]\n"; #bb.comprint "$names[2]\n"; #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 @values = values %data;$size = @values;print

7、哈希中添加元素
添加 key/value 对可以通过简单的赋值来完成。

#!/usr/bin/perl%data = ('aa'=>'aa.com', 'bb'=>'bb.com', 'cc'=>'cc.com');@keys = keys %data;$size = @keys;print - 哈希大小: # 添加元素$data{'dd'} = 'dd.com';@keys = keys %data;$size = @keys;print - 哈希大小:

8、哈希中删除元素
但是删除哈希元素你需要使用 delete 函数。

#!/usr/bin/perl%data = ('aa'=>'aa.com', 'bb'=>'bb.com', 'cc'=>'cc.com');@keys = keys %data;$size = @keys;print - 哈希大小: # 删除哈希中的元素delete $data{'bb'};@keys = keys %data;$size = @keys;print - 哈希大小: