perl函數可分為系統函數和用戶函數。
先介紹用戶函數
1、用戶函數

用戶函數又稱子程序(Subroutine)，在Perl中用下面的結構來定義用戶函數：

sub 子程序名{

語句塊;
}

這里的子程序名與變量的取名規則類似。

以顯示歡迎詞的程序為例：

sub say_hello{

print "你好，歡迎光臨網上學園";
}

用戶函數的定義可以位于程序的任何位置，比如說放在文件的未尾。如果兩個子程序使用了相同的程序名， 后面的子程序將覆蓋前面子程序。

用戶函數中的變量默認為全局變量，與其他程序共享。

用戶函數的調用：通過在子程序前加“&”調用，可在任一表達式內調用。 子程序中可以再調用另外的子程序。

調用用戶函數產生的結果稱為返回值(return value)。返回值是每次調用函數中最后一個表達式的計算值。 以加法函數為例：

sub add_a_b{

$a+$b;
}

函數最后一條表達式為$a+$b，故返回值為$a+$b。以下是調用情況：

$a=5;
$b=6;
$c=&add_a_b; #$c的值為11
$d=5*&add_a_b; #$d的值為5*11即55

上述的函數功能與傳統直接寫在程序中沒什么兩樣，如果加上參數傳遞就可以實現全新的功能了。 在Perl中，如果函數調用后面跟著一個用括號括起來的列表，則在函數調用期間該列表將被自動分配給以@_命名的特殊變量。 函數可以訪問該變量，從而確定參數的個數及賦值。

仍以加法函數為例：

sub add_a_b{
$_[0]+$_[1];
}
$c=&add_a_b(5,6); #$c的值為11
$d=5*&add_a_b(2,3); #d的值為5*5即25

如何改變參數的個數呢？我們可以用循環的方式來實現：

sub add_all{
$sum=0; #將sum初始化
foreach $_(@_) { #遍歷參數列表
$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

既然函數中的變量全為全程變量，那么上述程序中若調用程序中含有$sum變量時將替換，這不是我們所要的。 那么如何解決這一問題呢？

答案就是：使用局部變量, 使用local()操作符就可實現此功能。在上面的程序中，只需在第一行$sum=0;前加入：

local($sum);

當函數執行時，$sum的全程變量的值被保留起來，同時建立一個局部變量$sum，退出函數add_all后將全程變量$sum的值恢復。如：

sub add_all{
local($sum); #將$sum定義為局部變量
$sum=0; #將sum初始化
foreach $_(@_) { #遍歷參數列表
$sum+=$_; #累加每個元素
}
$sum; #返回sum即總和的值
}
$sum=88; #$sum的原始值為88
print $sum; #顯示$sum的值即88
$a=&add_all(3,4,5); #$a的值為3+4+5即12
print $sum; #顯示$sum的值仍為88

比較：若未加入local($sum);行，最后一行的執行結果將為12。

下面再舉一例：計算十以內的加法，并以中文形式輸出。當超過十時輸出阿拉伯數字。如：輸入兩個數字，顯示“一加二等于三”。程序如下：

#/! /usr/bin/perl
sub cnumber{
@chinese=("0","一","二","三","四","五","六","七","八","九");
#將@chinese定義為數組
local($number); #將number定義為局部變量
$chinese($number)||number; #想想為什么？
}
#主程序
print "請輸入一個數："
chop($num1=);
print "請再輸入一個數："
chop($num2=);
$msg=&chinese($num1)."加".&chinese($num2)."等于".
&chinese($num1+num2)."。n"
print $msg; #打印$msg的值

其中$chinese($number)||number; 行的初級寫法為：

if ($chinese(number) {
&chinese($number); #返回中文
} else {
&number; #返回阿拉伯數字
}

看看執行結果：輸入2,3，顯示："二加三等于五。"；輸入3,12，顯示："三加12等于15。"