Perl关联数组用法集锦
本文和大家重点讨论一下Perl关联数组的概念,创建Perl关联数组,从数组变量复制到Perl关联数组,元素的增删,用Perl关联数组循环等内容,相信通过本文的学习你对Perl关联数组的用法一定会有深刻的认识。 Perl关联数组 一、创建Perl关联数组 可以用单个赋值语句创建Perl关联数组,如: ◆下标为apples的元素,值为17 二、从数组变量复制到Perl关联数组 与列表一样,也可以通过数组变量创建Perl关联数组,当然,其元素数目应该为偶数,如: 注意,此语句中元素次序未定义,那么数组变量@fruit可能为("grapes",27)或("lemons",27,"grapes",11)。 最后,Perl关联数组可以通过返回值为列表的内嵌函数或用户定义的子程序来创建,下例中把split()函数的返回值--一个列表--赋给一个Perl关联数组变量。
运行结果如下: 三、元素的增删 增加元素已经讲过,可以通过给一个未出现过的元素赋值来向Perl关联数组中增加新元素,如$fruit{"lime"}=1;创建下标为lime、值为1的新元素。 注意: 四、列出数组的索引和值 上面已经提到,keys()函数返回Perl关联数组下标的列表,如: 这里,@fruitsubs被赋给apples、bananas、cherries构成的列表,再次提请注意,此列表没有次序,若想按字母顺序排列,可使用sort()函数。 五、用Perl关联数组循环 前面已经出现过利用keys()函数的foreach循环语句,这种循环效率比较低,因为每返回一个下标,还得再去寻找其值,如: 六、用Perl关联数组创建数据结构 用Perl关联数组可以模拟在其它高级语言中常见的多种数据结构,本节讲述如何用之实现:链表、结构和树。 1、(单)链表 链表是一种比较简单的数据结构,可以按一定的次序存贮值。每个元素含有两个域,一个是值,一个是引用(或称指针),指向链表中下一个元素。一个特殊的头指针指向链表的第一个元素。 下标为delta的最后一个元素的值为空串,表示链表的结束。在将要处理的数据个数未知或其随程序运行而增长的情况下,链表十分有用。 ◆主程序:读取输入并转换到相应的格式。 第3~17行为主程序,第4行初始化链表,将表头变量$header设为空串,第5行起的循环每次读取一行输入,第7行去掉头、尾的空格,第8行将句子分割成单词。9~15行的内循环每次处理一个单词,如果该单词的最后一个字符是标点符号,就去掉。第13行把单词转换成全小写形式,第14行传递给子程序add_word_to_list。 1、创建一个新元素,下标为该新单词,其值为原第一个单词。 如果该新单词不该为第一个元素,则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} 但是,这里涉及的指针的概念在其它数据结构中很有意义。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |