perl学习之：subs函数

      在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函数。