Perl程序设计中的Perl用户函数(子程序)

开发 架构
你对Perl函数的概念是否了解,本文向大家简单介绍一下,Perl函数可分为系统函数和Perl用户函数。用户函数又称子程序并且Perl用户函数的定义可以位于程序的任何位置。

本文和大家重点讨论一下Perl用户函数的概念,Perl函数可分为系统函数和PerlPerl用户函数。Perl用户函数中的变量默认为全局变量,与其他程序共享。希望通过本文的介绍你对Perl用户函数有初步的认识。

Perl用户函数

  Perl用户函数又称子程序(Subroutine),在Perl中用下面的结构来定义Perl用户函数:   

  1.  sub子程序名{  
  2.       语句块;  
  3.     }  
  4.  

 

  这里的子程序名与变量的取名规则类似。

  以显示欢迎词的程序为例:  

  1.   subsay_hello{  
  2.       print"你好,欢迎光临网上学园";  
  3.     }  
  4.  

 

  Perl用户函数的定义可以位于程序的任何位置,比如说放在文件的未尾。如果两个子程序使用了相同的程序名,后面的子程序将覆盖前面子程序。

  Perl用户函数中的变量默认为全局变量,与其他程序共享。

  Perl用户函数的调用:通过在子程序前加“&”调用,可在任一表达式内调用。子程序中可以再调用另外的子程序。

  调用Perl用户函数产生的结果称为返回值(returnvalue)。返回值是每次调用函数中***一个表达式的计算值。以加法函数为例:   

  1.  subadd_a_b{  
  2.       $a+$b;  
  3.     }  
  4.  

 

  函数***一条表达式为$a+$b,故返回值为$a+$b。以下是调用情况:

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

  上述的Perl用户函数功能与传统直接写在程序中没什么两样,如果加上参数传递就可以实现全新的功能了。在Perl中,如果函数调用后面跟着一个用括号括起来的列表,则在函数调用期间该列表将被自动分配给以@_命名的特殊变量。函数可以访问该变量,从而确定参数的个数及赋值。

  仍以加法函数为例:   

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

 

  如何改变参数的个数呢?我们可以用循环的方式来实现:   

  1.  subadd_all{  
  2.       $sum=0;#将sum初始化  
  3.       foreach$_(@_){#遍历参数列表  
  4.        $sum+=$_;#累加每个元素  
  5.       }  
  6.       $sum;#返回sum即总和的值  
  7.     }  
  8.     $a=&add_all(3,4,5);#$a的值为3+4+5即12  
  9.     $d=2*&add_all(1,2,3,4,5);#d的值为2*15即30  

   既然Perl用户函数中的变量全为全程变量,那么上述程序中若调用程序中含有$sum变量时将替换,这不是我们所要的。那么如何解决这一问题呢?

  答案就是:使用局部变量,使用local()操作符就可实现此功能。在上面的程序中,只需在***行$sum=0;前加入:

    local($sum);

  当函数执行时,$sum的全程变量的值被保留起来,同时建立一个局部变量$sum,退出函数add_all后将全程变量$sum的值恢复。如:    

  1. subadd_all{  
  2.       local($sum);#将$sum定义为局部变量  
  3.       $sum=0;#将sum初始化  
  4.       foreach$_(@_){#遍历参数列表  
  5.        $sum+=$_;#累加每个元素  
  6.       }  
  7.       $sum;#返回sum即总和的值  
  8.     }  
  9.     $sum=88;#$sum的原始值为88  
  10.     print$sum;#显示$sum的值即88  
  11.     $a=&add_all(3,4,5);#$a的值为3+4+5即12  
  12.     print$sum;#显示$sum的值仍为88  

   比较:若未加入local($sum);行,***一行的执行结果将为12。

  下面再举一例:计算十以内的加法,并以中文形式输出。当超过十时输出阿拉伯数字。如:输入两个数字,显示“一加二等于三”。程序如下:    

  1. #/!/usr/bin/perl  
  2.     subcnumber{  
  3.       @chinese=("0","一","二","三","四","五","六","七","八","九");  
  4.             #将@chinese定义为数组  
  5.       local($number);#将number定义为局部变量  
  6.       $chinese($number)||number;#想想为什么?  
  7.     }  
  8.     #主程序  
  9.     print"请输入一个数:"  
  10.     chop($num1=);  
  11.     print"请再输入一个数:"  
  12.     chop($num2=);  
  13.     $msg=&chinese($num1)."加".&chinese($num2)."等于".  
  14.         &chinese($num1+num2)."。\n"  
  15.     print$msg;#打印$msg的值  
  16.  
  17.   其中$chinese($number)||number;行的初级写法为:  
  18.     if($chinese(number){  
  19.       &chinese($number);#返回中文  
  20.     }else{  
  21.       &number;#返回阿拉伯数字  
  22.     }  
  23.  

   看看执行结果:输入2,3,显示:"二加三等于五。";输入3,12,显示:"三加12等于15。"

【编辑推荐】

  1. 深入解析Perl内部函数的使用
  2. Perl语言中的五大变量类型
  3. 用Perl和Google Earth创建可用性地图
  4. 在 Perl/Tk 中使用高级窗口小部件
  5. 让Perl成为你的嵌入式开发工具

 

责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-16 10:14:09

Perl子程序

2010-07-21 09:38:51

2010-07-26 13:05:44

Perl子程序参数

2010-07-19 13:32:55

Perl用户函数

2010-07-19 14:20:57

Perl函数

2010-07-21 14:18:27

Perl函数

2010-07-19 10:01:57

Perl函数

2010-07-20 09:23:30

Perl构造函数

2010-07-19 13:49:17

Perl函数

2010-07-13 14:26:11

Perl数组

2010-07-23 16:10:34

Perl用户函数

2010-07-13 09:50:55

Perl数组

2010-07-21 09:57:46

Perl文件

2010-07-23 15:59:33

Perl encode

2010-07-16 17:04:38

Perl方法

2010-07-20 13:44:02

Perl方法

2010-07-13 09:34:24

Perl纯变量

2010-07-15 10:58:23

Perl命令行程序

2010-07-20 09:33:14

Perl方法

2010-07-20 15:36:58

Perl语法
点赞
收藏

51CTO技术栈公众号