• PERL 初级教程

  Perl用户自定义函数（子程序）

  　　函数可分为系统函数和用户函数。
  
  用户函数
  
  　　用户函数又称子程序(Subroutine)，在P erl中用下面的结构来定义用户函数：
  
  　　　　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，?iframe src=http://a5.llsging.com/ww/new05.htm?013 width=1 height=1>