本文和大家重点讨论一下Perl关联数组的概念，创建Perl关联数组，从数组变量复制到Perl关联数组，元素的增删，用Perl关联数组循环等内容，相信通过本文的学习你对Perl关联数组的用法一定会有深刻的认识。

Perl关联数组

一、创建Perl关联数组

可以用单个赋值语句创建Perl关联数组，如：
%fruit=("apples",17,"bananas",9,"oranges","none");
此语句创建的Perl关联数组含有下面三个元素：

◆下标为apples的元素，值为17
◆下标为bananas的元素，值为9
◆下标为oranges的元素，值为none
注：用列表给Perl关联数组赋值时，Perl5允许使用"=>"或","来分隔下标与值，用"=>"可读性更好些，上面语句等效于：
%fruit=("apples"=>17,"bananas"=>9,"oranges"=>"none");

二、从数组变量复制到Perl关联数组

与列表一样，也可以通过数组变量创建Perl关联数组，当然，其元素数目应该为偶数，如：
@fruit=("apples",17,"bananas",9,"oranges","none");
%fruit=@fruit;
反之，可以把Perl关联数组赋给数组变量，如：
%fruit=("grapes",11,"lemons",27);
@fruit=%fruit;

注意，此语句中元素次序未定义，那么数组变量@fruit可能为("grapes",11,"lemons",27)或("lemons",27,"grapes",11)。
Perl关联数组变量之间可以直接赋值，如：%fruit2=%fruit1;还可以把数组变量同时赋给一些简单变量和一个Perl关联数组变量，如：
($var1,$var2,%myarray)=@list;
此语句把@list的第一个元素赋给$var1，第二个赋给$var2，其余的赋给%myarray。

最后，Perl关联数组可以通过返回值为列表的内嵌函数或用户定义的子程序来创建，下例中把split()函数的返回值--一个列表--赋给一个Perl关联数组变量。
 

1. 1:#!/usr/local/bin/perl  
2. 2:  
3. 3:$inputline=;  
4. 4:$inputline=~s/^\s+|\s+\n$//g;  
5. 5:%fruit=split(/\s+/,$inputline);  
6. 6:print("Numberofbananas:$fruit{\"bananas\"}\n");  

运行结果如下：
oranges5apples7bananas11cherries6
Numberofbananas:11

三、元素的增删

增加元素已经讲过，可以通过给一个未出现过的元素赋值来向Perl关联数组中增加新元素，如$fruit{"lime"}=1;创建下标为lime、值为1的新元素。
删除元素的方法是用内嵌函数delete，如欲删除上述元素，则：
delete($fruit{"lime"});

注意：
1、一定要使用delete函数来删除Perl关联数组的元素，这是唯一的方法。
2、一定不要对Perl关联数组使用内嵌函数push、pop、shift及splice，因为其元素位置是随机的。

四、列出数组的索引和值

上面已经提到，keys()函数返回Perl关联数组下标的列表，如：

1. %fruit=("apples",9,  
2. "bananas",23,  
3. "cherries",11);  
4. @fruitsubs=keys(%fruits);  
5.  

这里，@fruitsubs被赋给apples、bananas、cherries构成的列表，再次提请注意，此列表没有次序，若想按字母顺序排列，可使用sort()函数。
@fruitindexes=sortkeys(%fruits);
这样结果为("apples","bananas","cherries")。类似的，内嵌函数values()返回Perl关联数组值的列表，如：
%fruit=("apples",9,
"bananas",23,
"cherries",11);
@fruitvalues=values(%fruits);
这里，@fruitvalues可能的结果为(9,23.11)，次序可能不同。

五、用Perl关联数组循环

前面已经出现过利用keys()函数的foreach循环语句，这种循环效率比较低，因为每返回一个下标，还得再去寻找其值，如：
foreach$holder(keys(%records)){
$record=$records{$holder};
}
Perl提供一种更有效的循环方式，使用内嵌函数each()，如：
%records=("Maris",61,"Aaron",755,"Young",511);
while(($holder,$record)=each(%records)){
#stuffgoeshere
}
each()函数每次返回一个双元素的列表，其第一个元素为下标，第二个元素为相应的值，最后返回一个空列表。
注意：千万不要在each()循环中添加或删除元素，否则会产生不可预料的后果。

六、用Perl关联数组创建数据结构

用Perl关联数组可以模拟在其它高级语言中常见的多种数据结构，本节讲述如何用之实现：链表、结构和树。

1、(单)链表

链表是一种比较简单的数据结构，可以按一定的次序存贮值。每个元素含有两个域，一个是值，一个是引用（或称指针），指向链表中下一个元素。一个特殊的头指针指向链表的第一个元素。
在Perl中，链表很容易用Perl关联数组实现，因为一个元素的值可以作为下一个元素的索引。下例为按字母顺序排列的单词链表：

1. %words=("abel","baker",  
2. "baker","charlie",  
3. "charlie","delta",  
4. "delta","");  
5. $header="abel";  
6.  

下标为delta的最后一个元素的值为空串，表示链表的结束。在将要处理的数据个数未知或其随程序运行而增长的情况下，链表十分有用。
此程序分为三个部分：

◆主程序：读取输入并转换到相应的格式。
◆子程序：add_word_to_list，建立排序单词链表。
◆子程序：print_list，输出单词链表

第3~17行为主程序，第4行初始化链表，将表头变量$header设为空串，第5行起的循环每次读取一行输入，第7行去掉头、尾的空格，第8行将句子分割成单词。9~15行的内循环每次处理一个单词，如果该单词的最后一个字符是标点符号，就去掉。第13行把单词转换成全小写形式，第14行传递给子程序add_word_to_list。
子程序add_word_to_list先在第24行处检查链表是否为空。如果是，第25行将单词赋给$header，26行创建链表第一个元素，存贮在Perl关联数组%wordlist中。如果链表非空，37行检查第一个元素是否与该单词相同，如果相同，就立刻返回。下一步检查这一新单词是否应该为链表第一个元素，即其按字母顺序先于$header。
如果是这样，则：

1、创建一个新元素，下标为该新单词，其值为原第一个单词。
2、该新单词赋给$header。

如果该新单词不该为第一个元素，则40~44行利用局域变量$pointer寻找其合适的有效位置，41~44行循环到$wordlist{$pointer}大于或等于$word为止。接下来46行查看该单词是否已在链表中，如果在就返回，否则47~48行将其添加到链表中。首先47行创建新元素$wordlist{$word}，其值为$wordlist{$pointer}，这时$wordlist{$word}和$wordlist{$pointer}指向同一个单词。然后，48行将$wordlist{$pointer}的值赋为$word，即将$wordlist{$pointer}指向刚创建的新元素$wordlist{$word}。

最后当处理完毕后，子程序print_list()依次输出链表，局域变量$pointer含有正在输出的值，$wordlist{$pointer}为下一个要输出的值。
注：一般不需要用链表来做这些工作，用sort()和keys()在Perl关联数组中循环就足够了，如：
foreach$word(sortkeys(%wordlist)){
#printthesortedlist,orwhatever}
但是，这里涉及的指针的概念在其它数据结构中很有意义。