温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

Perl用户函数如何使用

发布时间:2021-07-14 14:27:27 来源:亿速云 阅读:125 作者:Leah 栏目:开发技术

这篇文章给大家介绍Perl用户函数如何使用,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。

Perl函数的使用

Perl函数可分为系统函数和Perl用户函数。先介绍Perl用户函数

1、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中,如果函数调用后面跟着一个用括号括起来的列表,则在函数调用期间该列表将被自动分配给以@_命名的特殊变量。函数可以访问该变量,从而确定参数的个数及赋值。

仍以加法函数为例:

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

既然函数中的变量全为全程变量,那么上述程序中若调用程序中含有$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用户函数如何使用就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI