日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
Perl語(yǔ)言中Perl函數(shù)用法

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

成都創(chuàng)新互聯(lián)公司專注于碧江網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供碧江營(yíng)銷型網(wǎng)站建設(shè)，碧江網(wǎng)站制作、碧江網(wǎng)頁(yè)設(shè)計(jì)、碧江網(wǎng)站官網(wǎng)定制、小程序定制開(kāi)發(fā)服務(wù)，打造碧江網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供碧江網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。

Perl函數(shù)和模塊

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

sub函數(shù)名{

函數(shù)體
}

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

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

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

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

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

 
 
 
    
  
  
  
  1. [root@test-linuxtmp]#catpu.pl 
    2. 
  
  
  
  2. #!/usr/bin/Perl-w 
    3. 
  
  
  
  3. $name{'beijing'}=99; 
    4. 
  
  
  
  4. $name{'shanghai'}=88; 
    5. 
  
  
  
  5. $name{'shenzhen'}=77; 
    6. 
  
  
  
  6. while(@value=each(%name)) 
    7. 
  
  
  
  7. { 
    8. 
  
  
  
  8. print"$value[0]is$value[1]\n"; 
    9. 
  
  
  
  9. } 
    10. 
  
  
  
  10. 
  
  
  
  11. [root@test-linuxtmp]#./pu.pl 
    12. 
  
  
  
  12. shenzhenis77 
    13. 
  
  
  
  13. beijingis99 
    14. 
  
  
  
  14. shanghaiis88 
    15. 
  
  
  
  15. [root@test-linuxtmp]# 
    16. 
  
  
  
  16.

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

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

 
 
 
    
  
  
  
  1. [root@test-linuxtmp]#catpq.pl 
    2. 
  
  
  
  2. #!/usr/bin/Perl-w 
    3. 
  
  
  
  3. $city{'hebei'}="issheng"; 
    4. 
  
  
  
  4. $city{'hadan'}="isshish"; 
    5. 
  
  
  
  5. $city{'xiang'}="isxianL"; 
    6. 
  
  
  
  6. if(exists($city{'hebei'})) 
    7. 
  
  
  
  7. { 
    8. 
  
  
  
  8. delete($city{'hebei'}); 
    9. 
  
  
  
  9. } 
    10. 
  
  
  
  10. while(@value=each(%city)) 
    11. 
  
  
  
  11. { 
    12. 
  
  
  
  12. print"$value[0]=>$value[1]\n"; 
    13. 
  
  
  
  13. } 
    14. 
  
  
  
  14. 
  
  
  
  15. [root@test-linuxtmp]#./pq.pl 
    16. 
  
  
  
  16. hadan=>isshish 
    17. 
  
  
  
  17. xiang=>isxianL 
    18.

文章名稱：Perl語(yǔ)言中Perl函數(shù)用法
文章來(lái)源：http://www.5511xx.com/article/dphpiio.html