专家推荐 Perl函数手册之入门篇

开发 架构
本文和大家重点讨论一下Perl函数手册,在学习Perl语言的过程中,Perl是经常遇到的问题。希望通过本文的介绍你对Perl函数有明确的认识。

本文想大家介绍一下Perl函数手册的使用,Perl语言中Perl函数可分为系统函数和用户函数,本文就先向大家介绍一下Perl用户函数的用法。

Perl函数手册

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

1、Perl用户函数

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

sub子程序名{语句块;}这里的子程序名与变量的取名规则类似。

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

 subsay_hello{print"你好,欢迎光临网上学园";}用户函数的定义可以位于程序的任何位置,比如说放在文件的未尾。如果两个子程序使用了相同的程序名,后面的子程序将覆盖前面子程序。

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

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的原始值为88print$sum;#显示$sum的值即88$a=&add_all(3,4,5);#$a的值为3+4+5即12print$sum;#显示$sum的值仍为88比较:若未加入local($sum);行,最后一行的执行结果将为12。

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

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

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

【编辑推荐】

  1. Perl函数手册专家指导
  2. Perl函数返回值用法指导
  3. Perl语言中Perl函数用法
  4. Perl命令行用法解析
  5. Perl多进程及其和多线程的关系解析

 

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

2010-07-20 13:19:16

Perl入门手册

2010-07-15 09:10:08

Perl函数手册

2010-05-20 19:12:37

2010-07-20 16:19:54

Perl

2010-07-23 12:23:49

Perl基础

2022-03-28 09:31:58

for循环语句

2010-07-21 11:04:44

Perl学习指南

2011-01-18 17:00:31

Postfix入门

2017-09-12 10:26:47

springbootmaven结构

2022-03-10 09:33:21

Java数组初始化

2010-07-26 11:19:19

Perl入门手册

2010-07-16 17:23:57

Perl面向对象编程

2020-11-16 10:19:33

Java

2016-09-06 17:43:12

SwiftCloudKit开发

2009-06-09 13:02:30

NetBeans使用教程

2010-06-07 17:24:44

UML

2010-07-14 13:57:30

Perl开发工具

2010-08-03 14:37:30

Flex入门教程

2015-07-30 09:43:10

独立游戏开发入门

2022-01-27 09:35:45

whiledo-while循环Java基础
点赞
收藏

51CTO技术栈公众号