黑基网 首页 学院 系统管理 查看内容

perl程序设计(十一)

2004-9-29 20:05| 投稿: net

摘要: 函数可分为系统函数和用户函数。用户函数  用户函数又称子程序(Subroutine),在Perl中用下面的结构来定义用户函数:    sub 子程序名{      语句块;    }  这里的子程序名...
函数可分为系统函数和用户函数。用户函数  用户函数又称子程序(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。"
小编推荐:欲学习电脑技术、系统维护、网络管理、编程开发和安全攻防等高端IT技术,请 点击这里 注册黑基账号,公开课频道价值万元IT培训教程免费学,让您少走弯路、事半功倍,好工作升职加薪!



免责声明:本文由投稿者转载自互联网,版权归原作者所有,文中所述不代表本站观点,若有侵权或转载等不当之处请联系我们处理,让我们一起为维护良好的互联网秩序而努力!联系方式见网站首页右下角。


鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论


新出炉

返回顶部