Perl用户函数使用行之有效的办法
本文和大家重点学习一下Perl函数的使用，Perl函数可分为系统函数和Perl用户函数，这里主要向大家描述一下Perl用户函数的使用。
Perl函数的使用
Perl函数可分为系统函数和Perl用户函数。先介绍Perl用户函数
1、Perl用户函数
Perl用户函数又称子程序(Subroutine)，在Perl中用下面的结构来定义Perl用户函数：
sub子程序名{
语句块;
}
这里的子程序名与变量的取名规则类似。
以显示欢迎词的程序为例：
subsay_hello{
print"你好，欢迎光临网上学园";
} Perl用户函数的定义可以位于程序的任何位置，比如说放在文件的未尾。如果两个子程序使用了相同的程序名，后面的子程序将覆盖前面子程序。
Perl用户函数中的变量默认为全局变量，与其他程序共享。
Perl用户函数的调用：通过在子程序前加“&”调用，可在任一表达式内调用。子程序中可以再调用另外的子程序。
调用Perl用户函数产生的结果称为返回值(returnvalue)。返回值是每次调用函数中最后一个表达式的计算值。以加法函数为例：
subadd_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中，如果函数调用后面跟着一个用括号括起来的列表，则在函数调用期间该列表将被自动分配给以@_命名的特殊变量。函数可以访问该变量，从而确定参数的个数及赋值。
仍以加法函数为例：
subadd_a_b{
$_[0]+$_[1];
}
$c=&add_a_b(5,6);#$c的值为11
$d=5*&add_a_b(2,3);#d的值为5*5即25 如何改变参数的个数呢？我们可以用循环的方式来实现：
subadd_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的值恢复。如：
subadd_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
subcnumber{
@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;#返回阿拉伯数字
}