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 变量:哈希变量的主要内容,如果未能解决你的问题,请参考以下文章

通过引用和标量变量传递 Perl 哈希

perl 第七弹 变量 IV

5-Perl 变量

10天学会Perl第二天——变量

Perl_实用报表提取语言

Perl——我可以在工作区中保存变量吗?