Perl 哈希Hash用法之入门教程
一、什么是Perl Hash
哈希是一种数据结构，和数组类似，可以将值存放到其中，或者从中取回值。但是，和数组不同的是，其索引不是数字，而是名字。也就是说，索引(这里，我们将它叫key)不是数字而是任意的唯一的字符串。
key可以是任意的字符串，你可以使用任何的字符串作为key，但它们是唯一的。
另一种思考hash 的方法是，把它看作一堆数据(a barrel of data)，每一个数据都有一个相应的标签。可以通过标签访问此标签对应的元素。但其中是没有“第一个”元素的概念的。在数组中，数组元素从0,Perl学习之哈希hash_马亮的计算机技术1,2 开始编号。但在hash中，没有确定的顺序，因此也没有第一个元素。只是一些key/value 对的集合。
keys和values均为任意的标量，但keys通常转换为字符串。因此，如果将表达式50/20 作为keys，则其通常被转换为3字符的字符串“2.5”。
由于Perl的“没有不必要的限制”的设计哲学：hash可以是任意大小，从空hash(没有key/value对)，到任何你内存允许的大小。
keys是唯一的，但values可以重复。hash的value可以是数字，字符串，undef，或者它们的混合，但key是唯一的。
为什么使用Perl Hash
可以把hash看作一个简单的数据库，其中每一个key下面可以有一块数据。如果你的任务是关于：“查询重复的”，“唯一的”，“交叉引用的”，“查询表”，则hash很可能在这类应用中帮上Perl学习之哈希hash_马亮的计算机技术你的忙。
二、Perl Hash元素的存取
要访问hash 元素，可以使用下面的语法：$hash{$some_key}
这和访问数组元素的方法有些类似，这里下标(key)上使用的是花括号({})，而不是方括号（[ ]）。现在key 的表达式是字符串，而非数字。
hash的名字和Perl中其它的标识符的命名规则是一样的(字母，数字，下划线组成，但不能由数字开头)。
访问不存在的hash元素将得到undef。
1.作为整体的Perl Hash
要引用整个hash，使用百分号(%)作为前缀。
为了方便，hash可以转换为列表，或者反过来。
2.Perl Hash赋值
可以使用如下的语法在hash 之间拷贝：
%new_hash = %old_hash;
将hash转变成其它形式更加常见。例如，我们可以将hash反转：
%inverse_hash = reverse %any_hash;
3.大箭头符号(=>)
当给hash赋值时，有时并不明显哪些元素是keys，那些是values，因此发明了大箭头符号(=>)。在需要逗号的时候，都可以使用大箭头符号替换。
如：
my %last_name = (
"www" => 1,
"eee" => 2,
);
三、Perl Hash函数
某些有用的函数可以对整个hash 进行操作。
1.keys和values函数
keys函数会返回此hash的所有keys，values函数将返回所有的values。如果hash中没有元素，则此函数将返回空列表。
my %hash = ("a"=>1, "b"=>2, "c"=>3);
print my @k = keys %hash;
print my @v = values %hash;
2.each函数
如果想迭代hash的每一个元素，一种通常的方法是使用each函数，它将返回key/value对应的2个元素列表。
当对同一个hash 函数进行一次迭代时，将返回下一个key/value对，直到所有的元素均被访问。如果没有更多的key/value对，则each函数将返回空表。
my %hash = ("a"=>1, "b"=>2, "c"=>3);
while(($key, $value) = each %hash)
{
print "$key => $value\n";
}
当然，each返回的key/vlaue对，顺序是混乱的(它其顺序和keys和values函数返回的顺序相同)。如果想将其按序排放，可以对它们排序（使用sort）。
my %hash = ("a"=>1, "b"=>2, "c"=>3, "d"=>4);
foreach $key (sort keys %hash)
{
$value =$hash{$key};
print "$key => $value\n";
}
四、Perl Hash的通常用法
1.exists函数
要查看hash中是否存在某个key，可以使用exists函数，如果hash中存在此key，则返回true，与是否有对应的value无关。
my %hash = ("a"=>1, "b"=>2, "c"=>3, "d"=>4);
if(exists $hash{'a'})
{
print "true";
}
2.delete 函数
delete函数将某个给定的key(包括其对应的value)从hash中删除。如果不存在这个key,则什么也不做，不会有警告或者错误信息。
my %hash = ("a"=>1, "b"=>2, "c"=>3, "d"=>4);
delete $hash{'a'};
foreach $key (sort keys %hash)
{
$value =$hash{$key};
print "$key => $value\n";
}
3.Perl Hash 元素的内插
你可以在双引号的字符串中使用单个hash元素，但不支持整个hash 的内插。
my %hash = ("a"=>1, "b"=>2, "c"=>3, "d"=>4);
foreach $key (sort keys %hash)
{
print "$key => $hash{$key}\n";
}
相关文章
这篇文章主要介绍了cpanm安装及安装Perl模块教程,本文先是给出了cpanm的安装教程,同时给出了Perl模块的安装实例,需要的朋友可以参考下2014-10-10
这篇文章主要介绍了Perl中的控制结构学习笔记,本文讲解了条件语句if、条件语句unless、循环语句while、循环语句until、for循环、foreach语句、循环控制等内容,需要的朋友可以参考下2014-11-11
本文为大家介绍Perl中处理时间的几个函数，供大家学习参考2013-02-02
这篇文章主要介绍了Perl学习笔记之文件操作,本文分别给出了打开文件、读取文件、写入文件代码实例,需要的朋友可以参考下2015-06-06
今天小编就为大家分享一篇关于perl6垃圾收集的文章，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧2018-10-10
这篇文章主要介绍了Perl AnyEvent中的watcher实例,关于AnyEvent请参阅的更多介绍请参阅文中的相关链接,需要的朋友可以参考下2014-09-09
Perl使用File::Basename获取文件扩展名的代码
本文为大家介绍的这个例子，实现了获取/home/topgkw中所有文件后缀，其中目录返回空值2013-02-02
这篇文章主要介绍了perl AnyEvent简单介绍和入门知识,AnyEvent 是一个性能非常好的基于事件驱动的框架,需要的朋友可以参考下2014-09-09
在Perl排名持续下降的情况下学Perl，似乎是有点不明智。但是，工作需要，不得不学啊。再说，Perl现在在测试领域还是用得非常多的。Phython虽然也在测试领域开始活跃起来，不过我始终还是不太喜欢Phython的语法。2009-04-04
怎么用perl程序，随机生成一条序列，使ACGT四种碱基的含量分别为0.3，0.3，0.2，0.2！2013-03-03
最新评论