perl的subroutines

一 subroutines

1）定义 sub NAME {...} . 不需要指定参数和返回值。函数内使用@_来访问函数传入的参数，一般函数内使用local( $var, $var2, $var3) = @_或my( $var, @vars) = @_;来访问函数的传入参数。如果没有使用return的话，默认地最后一条语句的值作为函数的返回值。$_[0]表示第一个参数，$_[$#_]表示最后一个参数，$#_ + 1 表示参数个数，也可以scalar(@_)来获得参数个数。



2）subroutines中定义的变量，必须使用my，local，our来控制变量的生命周期，如下：



实例如下：



3）命名参数，实例：



4）匿名subroutines，例如$ref = sub {...}，有点函数指针的意思。

二 实例

#!/usr/bin/perl -W

use strict;

sub Add
{
my @nums = @_;
my $sum = 0;
foreach my $num (@nums)
{
$sum += $num;
}
return $sum ;
}

sub Multiply
{
my @nums = @_;
my $sum = 1;
$sum *= $_ for @nums;
return $sum;
}
sub ToSentence
{
my @words = @_;
return (join(" ",@words));
}

sub Hello
{
print "hello world!";
}

sub Main
{
my ($caltype, @nums) = @_;
if ($caltype eq "Add")
{
print (Add(@nums));
}
elsif($caltype eq "Multiply")
{
print (Multiply(@nums));
}
elsif($caltype eq "ToSentence")
{
print(ToSentence(@nums));
}
else
{
Hello();
};

}

Main(@ARGV);

# Multiply 10 20 30
# Add 10 20 30 40 50
# ToSentence hello how are you !
#

完！