Perl专题之函数（一）函数基本语法

remington_young

1. 函数的基本语法
1.1.函数的声明与定义
　　Perl函数声明的语法为：
　　 sub NAME [PROTOTYPE] [ATTRIBUTE]
　　Perl函数定义的语法为：
　　 sub [NAME] [PROTOTYPE] [ATTRIBUTE] BLOCK
　　函数声明与定义的各个组成部分含义如下：
　　sub（函数关键字）：Perl中的子函数关键字，不可省略。
　　NAME（函数名字）：函数名字在函数声明中是必需的，而在函数定义中则是可选的。在函数定义中如果省略函数名则表示声明了一个匿名函数，此时需要提供一个调用匿名函数的方式，这将在1.2节阐述。
　　PROTOTYPE（函数原型）：用来定义函数出入参数的格式。
　　ATTRIBUTE（函数属性）：用来定义函数的属性，这部分内容将在后续专题中进行讨论，本文不做赘述。
　　BLOCK（函数体）：函数的代码体，只存在函数的定义中。
1.2.函数的调用方式
　　Perl中函数的调用方式主要有三种：
　　通过函数名直接调用
　　使用前置&号调用
　　使用引用调用
1.2.1.  通过函数名直接调用
　　这种调用方法只能调用命名函数。它的调用语法为：
　　NAME[(param1,param2,…)]
　　如果函数调用之前已经做了函数的声明或者定义，那么函数名字后面的括号是可以省略的。如果函数在调用之前没有做函数的声明或者定义，后面的括号不可省略。
　　我们做一个如下的测试脚本：
　　=pod
　　脚本名称：01_direct_call.pl
　　脚本目的：改脚本用来测试使用函数名字直接调用函数的语法
　　作   者：加水石灰
　　=cut
　　sub func_pre_definition{
　　   print "func_pre_definition被调用\n";
　　}
　　sub func_pre_declaration;
　　func_pre_definition();
　　func_pre_definition;
　　func_pre_declaration();
　　func_pre_declaration;
　　func_post_definition();
　　func_post_definition;
　　sub func_pre_declaration{
　　   print "func_pre_declaration被调用\n";
　　}
　　sub func_post_definition{
　　   print "func_post_definition被调用\n";
　　}
　　func_post_definition;
　　上面脚本的输出结果如下：
　　Useless use of aconstant ("func_post_definition") in void context at01_direct_call.pl line 17.
　　func_pre_definition被调用
　　func_pre_definition被调用
　　func_pre_declaration被调用
　　func_pre_declaration被调用
　　func_post_definition被调用
　　func_post_definition被调用
　　从上述结果可以看到Perl解释器对改脚本发出警告，在代码的第17行中对函数func_post_definition的调用被理解为一个裸字符串，而没有理解成一个函数调用。
　　这种调用方式和Perl内置函数的调用方式是一样的，Perl函数很多的特性都只能作用于这种调用方式，比如函数原型、内联函数等等。函数原型和内联函数将在后文中阐述。
1.2.2.  &+NAME方式调用
　　这种调用方式也只能调用命名函数。它的调用语法为：
　　&NAME[(pamram1,param2,…)]
　　这种调用方式下，不论声明或者定义是否在函数调用之前，函数名后面的括号均可以省略，因为符号&明确告诉Perl解释器这是一个函数调用，Perl解释器会在所有可见的名字空间中寻找该函数，如果找不到会报运行时错误。
　　我们做一个测试脚本如下：
　　=pod
　　脚本名称：02_and_call.pl
　　脚本目的：改脚本用来测试使用&+函数名字直接调用函数的语法
　　作   者：加水石灰
　　=cut
　　sub func_pre_definition{
　　   print "func_pre_definition被调用\n";
　　}
　　sub func_pre_declaration;
　　&func_pre_definition();
　　&func_pre_definition;
　　&func_pre_declaration();
　　&func_pre_declaration;
　　&func_post_definition();
　　&func_post_definition;
　　&func_err;
　　sub func_pre_declaration{
　　   print "func_pre_declaration被调用\n";
　　}
　　sub func_post_definition{
　　   print "func_post_definition被调用\n";
　　}
　　上述代码的输出结果为：
　　func_pre_definition被调用
　　func_pre_definition被调用
　　func_pre_declaration被调用
　　func_pre_declaration被调用
　　func_post_definition被调用
　　func_post_definition被调用
　　Undefined subroutine &main::func_errcalled at 02_and_call.pl line 18.
　　这种调用方式会屏蔽函数的原型声明和阻止成为内联函数。如果需要将函数作为参数传递给其它函数或者以&$subref()的方式调用函数的时候，&是不可省略的。
1.2.3.  通过引用调用函数
　　这种调用方式既可以调用命名函数也可以调用匿名函数。调用匿名函数时需要用一个标量变量来保存对匿名函数的引用。这种方式的调用语法有以下两种：
　　&$subref[()]
　　$subref->()
　　&$subref
　　我们做如下测试脚本：
　　=pod
　　脚本名称：03_ref_call.pl
　　脚本目的：改脚本用来测试使用引用调用函数的语法
　　作   者：加水石灰
　　=cut
　　$subref="func_post_definition";
　　&$subref();
　　&$subref;
　　$subref->();
　　$subref=\&func_post_definition;
　　&$subref();
　　&$subref;
　　$subref->();
　　sub func_post_definition{
　　print"func_post_definition被调用\n";
　　}
　　以上测试代码的输出为：
　　func_post_definition被调用
　　func_post_definition被调用
　　func_post_definition被调用
　　func_post_definition被调用
　　func_post_definition被调用
　　func_post_definition被调用
　　引用调用还可以调用匿名函数，但首先要保存一个匿名函数的引用。保存匿名函数的引用的语法如下：
　　$subref=sub BLOCK;
　　保存了匿名函数的引用之后，调用方式同上面命名函数的引用调用方式相同。
　　我们做如下的测试脚本：
　　$subref2=sub {print "匿名函数被调用\n"};
　　&$subref2();
　　&$subref2;
　　$subref2->()
　　以上代码的测试结果如下：
　　匿名函数被调用
　　匿名函数被调用
　　匿名函数被调用