Perl函数(子程序)学习笔记

 更新时间:2014年11月28日 16:10:12   投稿:junjie  
这篇文章主要介绍了Perl函数(子程序)学习笔记,本文讲解了函数定义、函数返回值、函数参数传递等内容,需要的朋友可以参考下

一、函数定义

子程序即一段分离的代码,它可以使减少重复代码且程序易读.perl中,子程序可以出现在程序的任何地方.但一般放在程序的开始或结尾.

复制代码 代码如下:

sub subroutine{
    statements;
}

sub开始,子程序名同变量的命名规则,可与变量同名,最好不要与内部函数同名,如果与内部函数同名则用$subroutine区分,不用&是内部函数,用&是定义函数,但省略&时混淆.

带有原型说明的子程序定义:

复制代码 代码如下:

sub subroutine($$){   #需要两个简单变量的参数
    statements;
}

说明:

1.()中的符号表示参数的类型,以一个字符表示一个参数.
2.$ 简单变量   @ 列表  % 散列  & 匿名子程序   * 引用
3.前加\为强制类型一致,;分隔必须的参数和可选参数.
4.\@$;$表示第一个参数为列表,第二个参数为简单变量,第三个参数简单变量可选.

二、函数返回值

1.缺省子程序中最后执行的一个语句的值将用作返回值,如果在if块中为最后执行的语句,虽然不是子程序的最后一句,也是返回值.

复制代码 代码如下:

$a=1;

不用等于,直接$retval;

复制代码 代码如下:

split(/:/,@a) 返回数组.

2.语句return(retval) 退出子程序并返回值retval,retval可以为列表.

3.返回错误

return 返回错误undef

用eval(‘subroutine') 函数,错误由$@变量中取得.

三、函数参数传递

形式:

复制代码 代码如下:

$sub1($num1,$unm2,$num3);     调用
sub sub1{
my($num1,$unm2,$num3)=@_;
}
my $num1=shift;
my $num2=shift;
my $num3=pop;

说明:

1.所有参数在数组@_中,每个元素为$_[0],$_[1]
2.@_,$_[]为局部变量,当子程序内再调用子程序时,@_不改变,会新生成另一份@_.
3.改变@_内元素的值如$_[0]会改变主程序的参数值.
4.shift pop 一次取一个参数.对@_操作,shift取第一个参数,然后删除,pop取最后一个参数再删除.

相关文章

  • Perl List::Util模块使用实例

    Perl List::Util模块使用实例

    这篇文章主要介绍了Perl List::Util模块使用实例,本文给出扫描符合条件的某个列表并取出第一个符合条件的、求1到1000之间的和 、求一组数字的最大值与最小值等实用功能代码,需要的朋友可以参考下
    2015-06-06
  • Perl学习教程之单行命令详解

    Perl学习教程之单行命令详解

    这篇文章主要给大家介绍了关于Perl学习教程之单行命令的相关资料,文中给出了详细的示例代码供大家参考学习,对大家学习或者使用perl具有一定的参考学习价值,需要的朋友可以参考借鉴,下面来一起看看吧。
    2017-09-09
  • perl 模块打包加入外部依赖程序

    perl 模块打包加入外部依赖程序

    Perl 社区并不是所有的东西都发布在 CPAN 上。甚至专门有一个 Module::ThirdParty 模块记录这些非 CPAN 的 perl 项目列表。其中最有名的应该就属写博客的 Movable Type 和做监控的 SmokePing 了
    2013-02-02
  • perl生成特定碱基比例的随机序列的代码

    perl生成特定碱基比例的随机序列的代码

    怎么用perl程序,随机生成一条序列,使ACGT四种碱基的含量分别为0.3,0.3,0.2,0.2!
    2013-03-03
  • 使用 use re debug 查看正则表达式的匹配过程

    使用 use re debug 查看正则表达式的匹配过程

    使用 use re 'debug' 查看正则表达式的匹配过程,参见如下的代码
    2013-02-02
  • perl的INC设置分析

    perl的INC设置分析

    perl的INC变量包含了所有perl module的查找路径,可以使用perl -V 来查看INC的值
    2013-02-02
  • perl 采集入库脚本分享

    perl 采集入库脚本分享

    这篇文章主要介绍了perl 采集入库脚本分享,本文是以前自己用的脚本,使用的Mysql数据库,需要的朋友可以参考下
    2014-09-09
  • perl push的用法及子程序返回值的反思

    perl push的用法及子程序返回值的反思

    以下的程序,输出一串数字中比平均值大的数,其中有两个问题值得注意,具体请看程序中的注释
    2013-02-02
  • Perl5 OOP学习笔记

    Perl5 OOP学习笔记

    在Perl排名持续下降的情况下学Perl,似乎是有点不明智。但是,工作需要,不得不学啊。再说,Perl现在在测试领域还是用得非常多的。Phython虽然也在测试领域开始活跃起来,不过我始终还是不太喜欢Phython的语法。
    2009-04-04
  • cpan安装Net::SSH::Perl中遇到的一些问题

    cpan安装Net::SSH::Perl中遇到的一些问题

    cpan安装Net::SSH::Perl中遇到的一些问题,需要的朋友可以参考下
    2013-02-02

最新评论