建站
咨詢
售后
建站咨詢
新聞中心
本文想大家介紹一下Perl函數(shù)手冊的使用，Perl語言中Perl函數(shù)可分為系統(tǒng)函數(shù)和用戶函數(shù)，本文就先向大家介紹一下Perl用戶函數(shù)的用法。
創(chuàng)新互聯(lián)公司專注于靜安網(wǎng)站建設服務及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供靜安營銷型網(wǎng)站建設，靜安網(wǎng)站制作、靜安網(wǎng)頁設計、靜安網(wǎng)站官網(wǎng)定制、重慶小程序開發(fā)服務，打造靜安網(wǎng)絡公司原創(chuàng)品牌,更為您提供靜安網(wǎng)站排名全網(wǎng)營銷落地服務。
Perl函數(shù)手冊
Perl函數(shù)可分為系統(tǒng)函數(shù)和用戶函數(shù)。先介紹用戶函數(shù)
1、Perl用戶函數(shù)
用戶函數(shù)又稱子程序(Subroutine)，在Perl中用下面的結(jié)構(gòu)來定義用戶函數(shù)：
sub子程序名{語句塊;}這里的子程序名與變量的取名規(guī)則類似。
以顯示歡迎詞的程序為例：
subsay_hello{print"你好，歡迎光臨網(wǎng)上學園";}用戶函數(shù)的定義可以位于程序的任何位置，比如說放在文件的未尾。如果兩個子程序使用了相同的程序名，后面的子程序?qū)⒏采w前面子程序。
用戶函數(shù)中的變量默認為全局變量，與其他程序共享。
Perl函數(shù)手冊中用戶函數(shù)的調(diào)用：
通過在子程序前加“&”調(diào)用，可在任一表達式內(nèi)調(diào)用。子程序中可以再調(diào)用另外的子程序。
調(diào)用用戶函數(shù)產(chǎn)生的結(jié)果稱為返回值(returnvalue)。返回值是每次調(diào)用函數(shù)中最后一個表達式的計算值。以加法函數(shù)為例：
subadd_a_b{$a+$b;}函數(shù)最后一條表達式為$a+$b，故返回值為$a+$b。以下是調(diào)用情況：
$a=5;$b=6;$c=&add_a_b;#$c的值為11$d=5*&add_a_b;#$d的值為5*11即55上述的函數(shù)功能與傳統(tǒng)直接寫在程序中沒什么兩樣，如果加上參數(shù)傳遞就可以實現(xiàn)全新的功能了。在Perl中，如果函數(shù)調(diào)用后面跟著一個用括號括起來的列表，則在函數(shù)調(diào)用期間該列表將被自動分配給以@_命名的特殊變量。函數(shù)可以訪問該變量，從而確定參數(shù)的個數(shù)及賦值。
仍以加法函數(shù)為例：
subadd_a_b{$_[0]+$_[1];}$c=&add_a_b(5,6);#$c的值為11$d=5*&add_a_b(2,3);#d的值為5*5即25 如何改變參數(shù)的個數(shù)呢？
◆我們可以用循環(huán)的方式來實現(xiàn)：
subadd_all{$sum=0;#將sum初始化foreach$_(@_){#遍歷參數(shù)列表 $sum+=$_;#累加每個元素}$sum;#返回sum即總和的值}$a=&add_all(3,4,5);#$a的值為3+4+5即12$d=2*&add_all(1,2,3,4,5);#d的值為2*15即30既然函數(shù)中的變量全為全程變量，那么上述程序中若調(diào)用程序中含有$sum變量時將替換，這不是我們所要的。那么如何解決這一問題呢？
答案就是：使用局部變量,使用local()操作符就可實現(xiàn)此功能。在上面的程序中，只需在第一行$sum=0;前加入：
local($sum);
當函數(shù)執(zhí)行時，$sum的全程變量的值被保留起來，同時建立一個局部變量$sum，退出函數(shù)add_all后將全程變量$sum的值恢復。如：
subadd_all{local($sum);#將$sum定義為局部變量$sum=0;#將sum初始化foreach$_(@_){#遍歷參數(shù)列表 $sum+=$_;#累加每個元素}$sum;#返回sum即總和的值}$sum=88;#$sum的原始值為88print$sum;#顯示$sum的值即88$a=&add_all(3,4,5);#$a的值為3+4+5即12print$sum;#顯示$sum的值仍為88比較：若未加入local($sum);行，最后一行的執(zhí)行結(jié)果將為12。
下面再舉一例：計算十以內(nèi)的加法，并以中文形式輸出。當超過十時輸出阿拉伯數(shù)字。如：輸入兩個數(shù)字，顯示“一加二等于三”。程序如下：
- #/!/usr/bin/Perlsubcnumber{@chinese=("0","一","二","三","四","五","六","七","八","九");
- #將@chinese定義為數(shù)組local($number);
- #將number定義為局部變量$chinese($number)||number;#想想為什么？}
- #主程序print"請輸入一個數(shù)："chop($num1=);print"請再輸入一個數(shù)："chop($num2=);
- $msg=&chinese($num1)."加".&chinese($num2)."等于".&chinese($num1+num2)."。
- n"print$msg;#打印$msg的值其中$chinese($number)||number;
- 行的初級寫法為：if($chinese(number){&chinese($number);
- #返回中文}else{&number;#返回阿拉伯數(shù)字}
看看執(zhí)行結(jié)果：輸入2,3，顯示："二加三等于五。"；輸入3,12，顯示："三加12等于15。"
【編輯推薦】
- Perl函數(shù)手冊專家指導
- Perl函數(shù)返回值用法指導
- Perl語言中Perl函數(shù)用法
- Perl命令行用法解析
- Perl多進程及其和多線程的關(guān)系解析
本文題目：專家推薦 Perl函數(shù)手冊之入門篇
文章源于：http://www.dlmjj.cn/article/dpdjspg.html
