这篇文章主要介绍了Perl中的子程序学习笔记,本文讲解了子程序的定义、调用、返回值、局部变量、子程序参数传递等内容,需要的朋友可以参考下

一、定义

函数可分为系统函数和用户函数。子程序即执行一个特殊任务的一段分离的代码,它可以使重复代码且使程序易读。PERL中,子程序可以出现在程序的任何地方。定义方法为:


  sub subroutine{
  statements;
  }

二、调用 
  调用方法如下:
1、用&调用

  &subname;
  ...
  sub subname{
  ...
  }

2、先定义后调用 ,可以省略&符号

  sub subname{
  ...
  }
  ...
  subname;

建议采取这种方式。
3、前向引用 ,先定义子程序名,后面再定义子程序体

  sub subname;
  ...
  subname;
  ...
  sub subname{
  ...
  }
 

4、用do调用
  do my_sub(1, 2, 3);等价于&my_sub(1, 2, 3);
三、返回值 
  缺省的,子程序中最后一个语句的值将用作返回值。语句return (retval);也可以推出子程序并返回值retval,retval可以为列表。
四、局部变量 
  子程序中局部变量的定义有两种方法:my和local。其区别是:my定义的变量只在该子程序中存在;而local定义的变量不存在于主程序中,但存在于该子程序和该子程序调用的子程序中(在PERL4中没有my)。定义时可以给其赋值,如:
 

  my($scalar) = 43;
  local(@array) = (1, 2, 3);
 

五、子程序参数传递
1、形式

  &sub1(&number1, $number2, $nubmer3);
  ...
  sub sub1{
  my($number1, $number2, $number3) = @_;
  ...
  }

2、传送数组

  &addlist (@mylist);
  &addlist ("14", "6", "11");
  &addlist ($value1, @sublist, $value2);
  ...
  sub addlist {
  my (@list) = @_;
  ...
  }

参数为数组时,子程序只将它赋给一个数组变量。如

  sub twolists {
  my (@list1, @list2) = @_;
  }

中@list2必然为空。但简单变量和数组变量可以同时传递:

  &twoargs(47, @mylist); # 47赋给$scalar,@mylist赋给@list
  &twoargs(@mylist); # @mylist的第一个元素赋给$scalar,其余的元素赋给@list
  ...
  sub twoargs {
  my ($scalar, @list) = @_;
  ...
  }

六、递归子程序

  PERL中,子程序可以互相调用,其调用方法与上述相同,当调用该子程序本身时,即成了递归子程序。递归子程序有两个条件:1、除了不被子程序改变的变量外,所有的变量必须的局部的;2、该子程序要含有停止调用本身的代码。

七、用别名传递数组参数

1、用前面讲到的调用方法&my_sub(@array)将把数组@array的数据拷贝到子程序中的变量@_中,当数组很大时,将会花费较多的资源和时间,而用别名传递将不做这些工作,而对该数组直接操作。形式如:


  @myarray = (1, 2, 3, 4, 5);
  &my_sub(*myarray);
  sub my_sub {
  my (*subarray) = @_;
  }

2、此方法类似于C语言中的传递数组的起始地址指针,但并不一样,在定义数组的别名之后,如果有同名的简单变量,则对该变量也是起作用的。如:

  $foo = 26;
  @foo = ("here's", "a", "list");
  &testsub (*foo);
  ...
  sub testsub {
  local (*printarray) = @_;
  ...
  $printarray = 61;
  }

  当子程序执行完,主程序中的$foo的值已经成了61,而不再是26了。
3、用别名的方法可以传递多个数组,如:

  @array1 = (1, 2, 3);
  @array2 = (4, 5, 6);
  &two_array_sub (*array1, *array2);
  sub two_array_sub {
  my (*subarray1, *subarray2) = @_;
  }

在该子程序中,subarray1是array1的别名,subarray2是array2的别名。
八、预定义的子程序 
  PERL5预定义了三个子程序,分别在特定的时间执行,它们是:BEGIN子程序在程序启动时被调用;END子程序在程序结束时被调用;AUTOLOAD子程序在找不到某个子程序时被调用。你可以自己定义它们,以在特定时间执行所需要的动作。如:
 

  BEGIN {
  print("Hi! Welcome to Perl!n");
  }
  AUTOLOAD{
  print("subroutine $AUTOLOAD not foundn"); # 变量$AUTOLOAD即未找到的子程序名
  print("arguments passed: @_n");
  }
 

  若同一个预定义子程序定义了多个,则BEGIN顺序执行,END逆序执行。

最新资讯
从什么时候起,你玩游戏开始考虑时间成本了?

从什么时候起,你玩游戏

于是,虽然现在游戏已经是消费成本最低的娱乐之一,但玩游
印度创企Milkbasket,靠什么在杂货电商领域脱颖而出

印度创企Milkbasket,靠

当你打开冰箱发现第二天需要喝的牛奶已经没有了或者你
中美贸易战升级,对哪国CPI影响更大?

中美贸易战升级,对哪国

就通胀影响而言,特朗普挑起的中美贸易战如果全面开打,真
美团买摩拜买的是什么?

美团买摩拜买的是什么

美团买的是街头的自行车吗?
Facebook 深陷泥潭,扎克伯格打不好的广告牌

Facebook 深陷泥潭,扎

每一个在互联网世界里走过一遭的人,谁都别想全身而退。
如何看待美团等外卖平台在无锡市场出现的二选一问题

如何看待美团等外卖平

打折促销可以,但是,违反用户或商家意志的强制”二选一“
最新文章
Perl 批量添加Copyright版权信息

Perl 批量添加Copyrig

对所有输入文件,如果没有版权信息则加上版权信息,否则什
Perl字符串处理函数大全

Perl字符串处理函数大

本文重点讨论Perl字符串处理函数的用法,每种函数都有
Perl中常见符号与操作

Perl中常见符号与操作

这篇文章主要介绍了Perl中常见符号与操作,需要的朋友
Perl学习教程之单行命令详解

Perl学习教程之单行命

这篇文章主要给大家介绍了关于Perl学习教程之单行命令
使用Perl生成随机密码

使用Perl生成随机密码

本文给大家分享的是使用perl生成随机密码的方法示例,而
perl uc,lc,ucfirst,lcfirst大小写转换函数

perl uc,lc,ucfirst,l

这篇文章主要介绍了perl 大小写字母转换函数,需要的朋