Perl可以让我们创建子程序，也就是我们自己定义的函数。子程序用&开头。

定义子程序

用关键字sub定义，可以定义在任意位置，不用事先声明。
如果有重名子程序，那么后定义的会覆盖之前定义的。
调用子程序时，只需要用 $子程序名 进行调用。

返回值

子程序的最后一次运算结果就被自动当作子程序的返回值。若子程序最后一步执行的不是计算操作，那么会根据情况返回1或0。

参数

要传递参数到Perl子程序里，只要在调用后面加上被括号圈引的列表就行了，Perl会自动把参数列表化名为数组变量@_ 。 如果用到超出@_数组边界的参数，只会得到undef

$n = &max(10,15);

sub max
{
  if($_[0] > $_[1]){
          $_[0];
  }else {
          $_[1];
  }
}

子程序中的私有变量。

默认情况下，Perl内所有变量都是全局变量，在程序的任何地方的都可以访问它们。但我们借助my操作符来创建私有变量，称为词法变量。

sub max
{
  my($m,$n);
  ($m,$n) = @_;
  if($m > $n) { $m } else { $n }
}

Perl也支持变长参数列表和空参数列表

use strict编译指令

将use strict指令放在程序开头，将会让Perl多一些约束

return操作符

和其他语言一样

非标量返回值

子程序还可以返回列表值
例子：

sub list_from_fred_to_barney{
  if($fred < $barney){
      $fred..$barney;
  } else {
          reverse $barney..$fred;
    }
}

持久性私有变量

在子程序中用my操作符创建的私有变量，在每次调用这个子程序的时候都会被重新定义。而使用state操作符来声明变量，就可以在多次调用期间保留变量之前的值，并且变量的作用域局限在子程序内部。

例子：

use 5.010

sub marine{
  state $n = 0;
  $n += 1;
  print "hello"#这是执行的最后一步，返回1
}