Perl語言中Perl函數如何使用

這篇文章給大家介紹Perl語言中Perl函數如何使用，內容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

Perl函數和模塊

1、創建Perl函數

sub函數名{

函數體
}

2、Perl函數之keys和values函數

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

[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函數之each函數

each函數的功能就是遍歷哈希變量中所有的數據并把每一對key=>value作為一個只有兩個元素的數組返回，key在前，value在后。each函數會循環地取出所有的數據，直到所有數據都被取出反返回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函數之delete和exists函數

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

[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

關于Perl語言中Perl函數如何使用就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。