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

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

专注于为中小企业提供成都网站建设、网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业洞头免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

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用户函数功能与传统直接写在程序中没什么两样，如果加上参数传递就可以实现全新的功能了。在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

　　既然Perl用户函数中的变量全为全程变量，那么上述程序中若调用程序中含有$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;#返回阿拉伯数字    
  
  　　　　}

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

【编辑推荐】

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

新闻标题：Perl程序设计中的Perl用户函数(子程序)
链接URL：http://www.shufengxianlan.com/qtweb/news19/256369.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容