子程序的声明与定义

beyes

一、定义子程序

定义子程序使用 sub 关键字，如：
[code=perl]#!/usr/bin/perl
$year = 2;

sub mysubf {
        $year += 1;
        print "Groad.net is $year years old!\n"
}

mysubf;
mysubf();
&mysubf;[/mw_shl_code]
运行输出：

./subfun.pl
Groad.net is 3 years old!
Groad.net is 4 years old!
Groad.net is 5 years old!

上面程序主要有两部分，一是定义了一个子程序，二是调用子程序。我们可以在任意的表达式中调用子程序(前面加上 '&' 符号) 。此外，mysubf 子程序在这里并不带有参数，所以 mysubf; 和 mysubf(); 这两种调用法都是正确的。

在 perl 中可以定义同名子程序，这并没有语法错误，但后面的子程序会将前面的覆盖 --- 一般情况下不建议这么做！

上面的子程序似乎没有返回值。这里需要说明的是，在 Perl 中，实际上子程序所有的子程序都是有返回值的 --- 子程序并没有 “有返回值” 和 “没有返回值” 的区分 ，只是并非所有的子程序都包含有用的返回值，如上例就是(print 通常返回 1)。既然如此，那么就没有必要像 C 那样规定每次用 "return" 来返回某个值。所以，在 Perl 中规定最后一次运算结果将自动成为子程序的返回值。注意，这并不是说 return 是废弃不用的关键字。下面示例：
[code=perl]#!/usr/bin/perl
$year = 2;
$pass = 2;

sub mysubf {
        $year + $pass
}

$allyear = &mysubf;
print "Groad.net is $allyear old.\n";

$allyear = 2 * $allyear;
print "$allyear years have passed.\n";[/mw_shl_code]
运行输出：

./subfun.pl
Groad.net is 4 old.
8 years have passed