perl的subroutines
一 subroutines
1）定义 sub NAME {...} . 不需要指定参数和返回值。函数内使用@_来访问函数传入的参数，一般函数内使用local( $var, $var2, $var3) = @_或my( $var, @vars) = @_;来访问函数的传入参数。如果没有使用return的话，默认地最后一条语句的值作为函数的返回值。$_表示第一个参数，$_[$#_]表示最后一个参数，$#_ + 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 !
#
完！
页:
[1]