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

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

#!/uer/bin/perl
 
%data = (-aa => 45, -bb => 30, -cc => 40);
@array = @data{-aa, -bb};
print "Array : @array\n";     #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]\n";     #aa
print "$names[1]\n";     #bb
print "$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.com
print "$names[1]\n";     #bb.com
print "$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 "1 - 哈希大小: $size\n";   #3
 
@values = values %data;
$size = @values;
print "2 - 哈希大小: $size\n";   #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\n";   #1 - 哈希大小: 3
 
# 添加元素
$data{'dd'} = 'dd.com';
@keys = keys %data;
$size = @keys;
print "2 - 哈希大小: $size\n";   #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\n";   #1 - 哈希大小: 3

# 删除哈希中的元素
delete $data{'bb'};
@keys = keys %data;
$size = @keys;
print "3 - 哈希大小: $size\n";   3 - 哈希大小: 2