本文和大家重點學(xué)習(xí)一下Perl函數(shù)和模塊的概念，比如keys函數(shù)，它會遍歷所有的哈希變量，并把哈希變量的key作為一個數(shù)組返回，我們可以通過遍歷這個數(shù)組來訪問哈希變量的所有元素。

Perl函數(shù)和模塊

1、創(chuàng)建Perl函數(shù)

sub函數(shù)名{

函數(shù)體
}

2、Perl函數(shù)之keys和values函數(shù)

keys函數(shù)會遍歷所有的哈希變量，并把哈希變量的key作為一個數(shù)組返回，我們可以通過遍歷這個數(shù)組來訪問哈希變量的所有元素。需要注意，這個數(shù)組中的key仍然是無序的。對應(yīng)的函數(shù)就是
values函數(shù)，它會把哈希變量保存的所有的值作為一個數(shù)組返回。
 

[root@test-linuxtmp]#catpy.pl  
#!/usr/bin/Perl-w  
$name{'bo'}=1;  
$name{'hong'}=2;  
$name{'quan'}=3;  
@keyname=keys(%name);  
@valuesvaluesname=values(%name);  
print"\@keynameis@keyname\n";  
print"\@valuesnameis@valuesname\n";  
print"\%name{\$keyname[0]is%name{$keyname[1]}\%name{\$valuesname[0]is$valuesname[1]}}\n";  
[root@test-linuxtmp]#  

 3、Perl函數(shù)之each函數(shù)

each函數(shù)的功能就是遍歷哈希變量中所有的數(shù)據(jù)并把每一對key=>value作為一個只有兩個元素的數(shù)組返回，key在前，value在后。each函數(shù)會循環(huán)地取出所有的數(shù)據(jù)，直到所有數(shù)據(jù)都被取出反返回false。

[root@test-linuxtmp]#catpu.pl  
#!/usr/bin/Perl-w  
$name{'beijing'}=99;  
$name{'shanghai'}=88;  
$name{'shenzhen'}=77;  
while(@value=each(%name))  
{  
print"$value[0]is$value[1]\n";  
}  
 
[root@test-linuxtmp]#./pu.pl  
shenzhenis77  
beijingis99  
shanghaiis88  
[root@test-linuxtmp]#  
 

 4、Perl函數(shù)之delete和exists函數(shù)

delete函數(shù)的功能就是從哈希變量中刪除一個元素，而exists函數(shù)的功能則是判斷哈希變量中是否存在某一個值。
 

[root@test-linuxtmp]#catpq.pl  
#!/usr/bin/Perl-w  
$city{'hebei'}="issheng";  
$city{'hadan'}="isshish";  
$city{'xiang'}="isxianL";  
if(exists($city{'hebei'}))  
{  
delete($city{'hebei'});  
}  
while(@value=each(%city))  
{  
print"$value[0]=>$value[1]\n";  
}  
 
[root@test-linuxtmp]#./pq.pl  
hadan=>isshish  
xiang=>isxianL  

【編輯推薦】

1. Perl函數(shù)手冊專家指導(dǎo)
2. Perl文件句柄概念詳解
3. 解析兩大Perl標(biāo)量的操作符
4. Perl基礎(chǔ) Perl數(shù)組學(xué)習(xí)指南
5. Perl基礎(chǔ) 解析Perl標(biāo)量和數(shù)組概念