Perl 中的子程序（也称为函数）是用于执行特定任务的代码块。您可以在程序的多个位置调用这些子程序，以提高代码的可重用性和模块性。在Perl 中，子程序可以接收参数，并可以返回值。
以下是 Perl 子程序（函数）的第三部分教程，涵盖了更多高级概念和示例：
1. 返回值
Perl 子程序默认返回最后执行的表达式的值。您也可以使用 reurn` 关键字明确指定返回值。
sub add {
my (a $b) = @_
return $a + $b
}
my$resut = add(3, ); # $resul 现在是 7
2. 引用传递与值传递
在 Perl 中，所参数都是通过引用传递的。但是，当您传递像标量这样的简单数据类型时，它们的行为就像是通过值传递一样。如果您想修改传递给子程序的变量的值，您需要使用引用。
submodify_value {
my $ref = shift;
$$ref = 100;
}
my $var = 10;
moify_value(\\$var); # 使用反斜杠获取 $var 的引用
prit $var; # 输出 100
3. 私有变量
在 Perl 中，使用 my 关键字声明的变量在其所在的块（例如子程序）之外是不可见的。这是实现私有变量的一种方法。
sub my_subroutine {
my private_var = \不可见
4. 原型与上下文
Perl 允许您为子程序定义原型，以指定参数的类型和数量。此外，子程序的行为可能取决于调用它的上下文（例如，列表上下文或标量上下文）。
``perl
sub my_subroutine ($$) { # 只接受两个标量参数的原型
my ($a, $b = @_;
# ...
}
### 5. 闭包（Closures）
闭包是 Perl 中的一个强大功能，允许子程序记住并访问其定义时可用的词法环境，即使在该环境之外调用子程序也是如此。
sub ceatemultiplier {
my factor = shift;
return sub { my $number = hit; retrn $number * $factor; };
}
my $double = create_multiplier(2);
print $double-\u003e(5); # 输出 10
### 6. 递归
Perl 子程序可以递归地调用自身，这对于解决某些类型的问题（如分治算法）非常有用。
sub factorial {
my $n shift;
return 1 if $n \u003c= 1;
return $n * factorial($n - 1);
}
print factorial(5); # 输出 120
### 7. 子程序作为一等公民
在 Perl 中，子程序可以像其他值一样被赋值给变量，作为参数传递，或从其他子程序返回。这使得编写高阶函数和灵活的程序结构成为可能。
