perl学习之：subs函数

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

在Perl中，sub关键字主要是为了定义一个子例程，那么subs又是什么呢？

首先subs是一个函数，用于预先声明子例程，函数的参数是预声明的函数名列表。那么这个函数存在的意义是什么?首先，通过该函数预声明的那些函数，可以在不用&或者括号的情况下使用;其次，可以覆盖内建的Perl函数，诸如substr等。

下面就给出俩个例子来说明下：

示例脚本1：

use strict;
use subs qw(func1 func2);

func1;
func2;

sub func1{
print "this is func1\n";
}

sub func2{
print "this is func2\n";
}

Output:
this is func1
this is func2

　　上述脚本中，调用函数func1与func2都未使用&或者括号。如果去掉开头部分的subs函数，那么上述脚本会在编译时报错。　　

示例脚本2：

use strict;
use subs qw(substr);

my $str = "String to be tested!\n";

substr($str,7,2);

print "After called substr,the \$str is $str\n";

sub substr{
print "I have override the built-in subroutine substr(str,index,length)\n";
}

Output:
I have override the built-in subroutine substr(str,index,length)
After called substr,the $str is String to be tested!

　　通过结合subs函数覆盖了Perl内建的subs函数。