社区编辑申请
注册/登录
如何用Perl关联数组创建数据结构
开发 架构
Perl关联数组有很多值得学习的地方,那么你对用Perl关联数组创建数据结构的方法是否了解,这里就向大家简单介绍一下,希望本文介绍能让你有所收获。

本文和大家重点讨论一下Perl关联数组的应用问题,如何用Perl关联数组创建数据结构,用Perl关联数组可以模拟在其它高级语言中常见的多种数据结构,本节讲述如何用之实现:链表、结构和树。

用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}
但是,这里涉及的指针的概念在其它数据结构中很有意义。

【编辑推荐】

  1. Perl关联数组用法集锦
  2. Perl文件句柄概念详解
  3. Perl关联数组用法详解
  4. Perl模式匹配经验总结
  5. 术语汇编 Perl变量中Perl关联数组用法解析
责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-19 15:31:10

Perl关联数组函数

2010-07-21 13:59:59

Perl引用

2010-07-20 13:12:11

Perl数组

2010-07-13 14:26:11

Perl数组

2010-07-13 13:27:13

Perl复杂数据结构

2010-07-19 16:25:06

Perl数组

2010-07-16 14:05:58

Perl数组

2010-07-13 15:15:49

2010-07-16 13:21:26

Perl哈希表

2010-07-19 13:49:17

Perl函数

同话题下的热门内容

微服务架构的可观察性设计模式汽车之家APP基于Mach-O的探索与实践六张图告诉你 RocketMQ 是怎么保存偏移量的Dubbo 高性能 RPC 框架实践如何使用 Sentinel 保护您的微服务微服务架构的服务发现设计模式Hadoop中的契约监控机制,被惊艳到了聊聊客户档案模型的设计与管理

编辑推荐

终于有人把Elasticsearch原理讲透了!花了一个星期,我终于把RPC框架整明白了!拜托!面试不要再问我Spring Cloud底层原理陌陌基于K8s和Docker容器管理平台的架构实践收藏 | 第一次有人把“分布式事务”讲的这么简单明了
我收藏的内容
点赞
收藏

51CTO技术栈公众号