本文和大家重點討論一下利用Perl哈希表建立鍵－值數據映射問題，這里告訴你如何創建Perl哈希表，如何插入、刪除要素，以及如何創建嵌套PerlPerl哈希表和利用循環來處理Perl哈希表。

Perl基礎：利用Perl哈希表建立鍵－值數據映射

Perl的數據結構中最有趣的一個特性是Perl哈希表（hash），它使得在數據片段之間建立鍵—值（key-value）關聯成為可能。雖然這些Perl哈希表要遠遠比普通系統中以數字索引的數組用途更廣，但是往往也會使初學者不知所措。這就是要寫本篇文章的原因所在——它將告訴你如何創建Perl哈希表，如何插入、刪除要素，以及如何創建嵌套PerlPerl哈希表和利用循環來處理Perl哈希表。

定義Perl哈希表

首先，什么是Perl哈希表？從本質上來說，它是以字符串索引的數組。也就是說，你要使用字符串標簽而不用數字來存取各個元素。下面是一個例子：

列表A

#!/usr/bin/Perl  
 
#definehash  
%alphabet=('a'=>'apple',  
'b'=>'ball',  
'c'=>'cat',  
'x'=>'xylophone');  
 

 上面的幾行用四對鍵—值關聯建立了一組PerlPerl哈希表?？梢宰⒁獾剑兞棵懊娴姆?表示它是一個Perl哈希表，箭頭用來指出鍵—值關系。

你也可以這樣寫代碼：

列表B

#!/usr/bin/Perl  
 
#definehash  
%alphabet=('a','apple','b','ball','c','cat','x','xylophone');  
 

 在定義了一個Perl哈希表以后，你就可以用定義后的名稱對獨立的要素進行存取。例如，看下面的代碼：

列表C

#!/usr/bin/Perl  
 
#definehash  
%alphabet=('a','apple','b','ball','c','cat','x','xylophone');  
 
#accesshashvalue  
print"Aisfor".$alphabet;  
 

 輸出結果為：

Aisforapple.

要清除Perl哈希表，只需簡單地把它賦值于一個空的數據集，就像下面的例子：

列表D

#!/usr/bin/Perl  
 
#(re)initializehash  
%alphabet=();  
 

 插入、改變和刪除Perl哈希表元素

你可以在一個Perl哈希表中插入一個新元素（或者更改一個現有的Perl哈希表），只需要給與之相對應的鍵設置一個新的數值就行了。如果這個鍵不存在，它將會被創建。下面是一個例子：

列表E

#!/usr/bin/Perl  
 
#definehash  
%alphabet=('a','apple','b','ball','c','cat','x','xylophone');  
 
#addnewelement  
$alphabet='dog';  
 
#changeexistingelement  
$alphabet='arrow';  
 
#accesshashvalue  
print"Aisfor".$alphabet;  
 

 你可以用delete()函數刪除一對鍵—值對，就像下面這樣：

列表F

#!/usr/bin/Perl  
 
#definehash  
%alphabet=('a','apple','b','ball','c','cat','x','xylophone');  
 
#deleteelement  
delete$alphabet;  
 

 #p#

檢索鍵和數值

如果你覺得一個Perl哈希表的鍵和數值有用，需要進一步處理，Perl允許將其提取到單獨的數據結構中。你可以用函數keys()將一個Perl哈希表的鍵返回成為一個數字索引的數組。下面是一個例子：

列表G

#!/bin/Perl  
 
#definehash  
%alphabet=('a'=>'apple','b'=>'bat','c'=>'cat');  
 
#getandprinthashkeys  
@keyskeys=keys(%alphabet);  
print"@keys";  
 

 或者，你可以用函數values()獲得一個具有Perl哈希表值的數組，如下：

列表H

#!/bin/Perl  
 
#definehash  
%alphabet=('a'=>'apple','b'=>'bat','c'=>'cat');  
 
#getandprinthashvalues  
@vals=values(%alphabet);  
print"@v";  
 

 計算Perl哈希表的大小

計算Perl哈希表大小的最簡單方法就是用上述的keys()函數，將Perl哈希表中的鍵提取到一個數組中，然后檢索得到數組的大小，操作方法如下：

列表I

#!/bin/Perl  
 
#definehash  
%alphabet=('a'=>'apple','b'=>'bat','c'=>'cat');  
 
#printnumberofhashelements  
print"Thehashhas".scalar(keys(%alphabet))."elements";  
 

 處理Perl哈希表元素

運用while()循環處理一個Perl哈希表中的所有元素也比較容易。下面是一個簡單的例子：

列表J

#!/usr/bin/Perl  
 
#definehash  
%alphabet=('a','apple','b','ball','c','cat','x','xylophone');  
 
#loopoverhash  
while(($key,$value)=each(%alphabet)){  
print"$keyisfor$value";  
}  
 

 或者，用前面已經討論過的for()循環和keys()函數：

列表K

#!/usr/bin/Perl  
 
#definehash  
%alphabet=('a','apple','b','ball','c','cat','x','xylophone');  
 
#loopoverhash  
for$k(keys(%alphabet)){  
print$k."isfor".$hash."";  
}  
 

 運用嵌套的Perl哈希表

Perl也允許在一個Perl哈希表（或數組）中再嵌入一個Perl哈希表（或數組）。這樣就為構建長而復雜的數據結構提供了很大的靈活性，下面是一個例子：

列表L

#!/usr/bin/Perl  
 
%movies=(  
'black'=>{'hero'=>'Batman','villain'=>'ThePenguin'},  
'red'=>[{'hero'=>'Spiderman','villain'=>'GreenGoblin'},  
{'hero'=>'Superman','villain'=>'LexLuthor'}]  
);  
 
#retrieveandprintvalues  
print$movies."fights".$movies."";  
 
print$movies[1]."fights".$movies[1]."";  
 

 該代碼返回的結果是：

BatmanfightsThePenguin
SupermanfightsLexLuthor

【編輯推薦】

1. Perl哈希表用法解析
2. Perl語言中的五大變量類型
3. 實例解析Perl守護進程用法
4. Perl模式匹配經驗總結
5. Perl學習筆記 Perl變量的認識