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

《perl實例分析教程之十三--》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。

1、perl實例分析教程之十三>>十、用關(guān)聯(lián)數(shù)組創(chuàng)建數(shù)據(jù)結(jié)構(gòu)　　用關(guān)聯(lián)數(shù)組可以模擬在其它高級語言中常見的多種數(shù)據(jù)結(jié)構(gòu)，本節(jié)講述如何用之實現(xiàn)：鏈表、結(jié)構(gòu)和樹。1、(單)鏈表鏈表是一種比較簡單的數(shù)據(jù)結(jié)構(gòu)，可以按一定的次序存貯值。每個元素含有兩個域，一個是值，一個是引用（或稱指針），指向鏈表中下一個元素。一個特殊的頭指針指向鏈表的第一個元素。在Perl中，鏈表很容易用關(guān)聯(lián)數(shù)組實現(xiàn)，因為一個元素的值可以作為下一個元素的索引。下例為按字母順序排列的單詞鏈表：%pty4:30:#donothing31:returnif($headereq$p;42:$eoreoreoresomestil

2、lwords此程序分為三個部分：主程序：讀取輸入并轉(zhuǎn)換到相應(yīng)的格式。子程序：add_word_to_list，建立排序單詞鏈表。子程序：print_list，輸出單詞鏈表第3~17行為主程序，第4行初始化鏈表，將表頭變量$header設(shè)為空串，第5行起的循環(huán)每次讀取一行輸入，第7行去掉頭、尾的空格，第8行將句子分割成單詞。9~15行的內(nèi)循環(huán)每次處理一個單詞，如果該單詞的最后一個字符是標(biāo)點(diǎn)符號，就去掉。第13行把單詞轉(zhuǎn)換成全小寫形式，第14行傳遞給子程序add_word_to_list。子程序add_word_to_list先在第24行處檢查鏈表是否為空。如果是，第25行將

3、單詞賦給$header，26行創(chuàng)建鏈表第一個元素，存貯在關(guān)聯(lián)數(shù)組%wordlist中。如果鏈表非空，37行檢查第一個元素是否與該單詞相同，如果相同，就立刻返回。下一步檢查這一新單詞是否應(yīng)該為鏈表第一個元素，即其按字母順序先于$header。如果是這樣，則：1、創(chuàng)建一個新元素，下標(biāo)為該新單詞，其值為原第一個單詞。2、該新單詞賦給$header。如果該新單詞不該為第一個元素，則40~44行利用12下一頁>>>>這篇文章來自..，。局域變量$pointer尋找其合適的有效位置，41~44行循環(huán)到$wordlist{$pointer}大于或等于$word為止。接下來46行查看該單

4、詞是否已在鏈表中，如果在就返回，否則47~48行將其添加到鏈表中。首先47行創(chuàng)建新元素$wordlist{$word}，其值為$wordlist{$pointer}，這時$wordlist{$word}和$wordlist{$pointer}指向同一個單詞。然后，48行將$wordlist{$pointer}的值賦為$word，即將$wordlist{$pointer}指向剛創(chuàng)建的新元素$wordlist{$word}。最后當(dāng)處理完畢后，子程序print_list()依次輸出鏈表，局域變量$pointer含有正在輸出的值，$wordlist{$pointer}為下一個要輸

5、出的值。注：一般不需要用鏈表來做這些工作，用sort()和keys()在關(guān)聯(lián)數(shù)組中循環(huán)就足夠了，如：foreach$word(sortkeys(%wordlist)){#printthesortedlist,orwhatever}但是，這里涉及的指針的概念在其它數(shù)據(jù)結(jié)構(gòu)中很有意義。上一頁12>>>>這篇文章來自..，。