Perl 教程 之 Perl 子程序(函数) 2

Perl 子程序(函数)

Perl 子程序也就是用户定义的函数。

Perl 子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。

向子程序传递参数

Perl 子程序可以和其他编程一样接受多个参数，子程序参数使用特殊数组 @_ 标明。

因此子程序第一个参数为 $[0], 第二个参数为 $[1], 以此类推。

不论参数是标量型还是数组型的，用户把参数传给子程序时，perl默认按引用的方式调用它们。

实例

!/usr/bin/perl

定义求平均值函数

sub Average{

获取所有传入的参数

$n = scalar(@_);
$sum = 0;

foreach $item (@){
$sum += $item;
}
$average = $sum / $n;
print '传入的参数为 : ',"@\n"; # 打印整个数组
print "第一个参数值为 : $_[0]\n"; # 打印第一个参数
print "传入参数的平均值为 : $average\n"; # 打印平均值
}

调用函数

Average(10, 20, 30);

执行以上程序，输出结果为：

传入的参数为 : 10 20 30
第一个参数值为 : 10
传入参数的平均值为 : 20
用户可以通过改变 @_ 数组中的值来改变相应实际参数的值。