标签：计算 完成 hash 多少 检测 code 两种 data 个数
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
标签：计算 完成 hash 多少 检测 code 两种 data 个数
原文地址：https://www.cnblogs.com/sunziying/p/9569321.html
