perl实例分析教程之十三--

《perl实例分析教程之十三--》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、perl实例分析教程之十三>>十、用关联数组创建数据结构　　用关联数组可以模拟在其它高级语言中常见的多种数据结构，本节讲述如何用之实现：链表、结构和树。1、(单)链表链表是一种比较简单的数据结构，可以按一定的次序存贮值。每个元素含有两个域，一个是值，一个是引用（或称指针），指向链表中下一个元素。一个特殊的头指针指向链表的第一个元素。在Perl中，链表很容易用关联数组实现，因为一个元素的值可以作为下一个元素的索引。下例为按字母顺序排列的单词链表：%pty4:30:#donothing31:returnif($headereq$p;42:$eoreoreoresomestil

2、lwords此程序分为三个部分：主程序：读取输入并转换到相应的格式。子程序：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行将

3、单词赋给$header，26行创建链表第一个元素，存贮在关联数组%wordlist中。如果链表非空，37行检查第一个元素是否与该单词相同，如果相同，就立刻返回。下一步检查这一新单词是否应该为链表第一个元素，即其按字母顺序先于$header。如果是这样，则：1、创建一个新元素，下标为该新单词，其值为原第一个单词。2、该新单词赋给$header。如果该新单词不该为第一个元素，则40~44行利用12下一页>>>>这篇文章来自..，。局域变量$pointer寻找其合适的有效位置，41~44行循环到$wordlist{$pointer}大于或等于$word为止。接下来46行查看该单

4、词是否已在链表中，如果在就返回，否则47~48行将其添加到链表中。首先47行创建新元素$wordlist{$word}，其值为$wordlist{$pointer}，这时$wordlist{$word}和$wordlist{$pointer}指向同一个单词。然后，48行将$wordlist{$pointer}的值赋为$word，即将$wordlist{$pointer}指向刚创建的新元素$wordlist{$word}。最后当处理完毕后，子程序print_list()依次输出链表，局域变量$pointer含有正在输出的值，$wordlist{$pointer}为下一个要输

5、出的值。注：一般不需要用链表来做这些工作，用sort()和keys()在关联数组中循环就足够了，如：foreach$word(sortkeys(%wordlist)){#printthesortedlist,orwhatever}但是，这里涉及的指针的概念在其它数据结构中很有意义。上一页12>>>>这篇文章来自..，。