perl程序设计(十一)
函数可分为系统函数和用户函数。
用户函数
用户函数又称子步伐(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外包、企业电脑包年维护、局域网网络布线、网吧承包等相关维修服务。
版权声明：原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处 、作者信息和声明。否则将追究法律责任。
TAG:
|
评论加载中...
|
