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 !
# 

完！