受启发于：https://stackoverflow.com/questions/30977789/why-is-c-not-a-functional-programming-language
这让我想到了Perl是一种函数式编程语言的说法。现在，我理解函数式编程是一种技术（就像面向对象编程）。
然而，我找到了一份关于函数式编程语言规范：
其中的一些我非常熟悉：
例如，垃圾回收是通过Perl中的引用计数实现的，在不再需要时释放内存。
词法闭包甚至可以在FAQ中找到：什么是闭包？——这里可能有更好的文章：http://www.perl.com/pub/2002/05/29/closure.html
但是对于其中一些我开始感到有些模糊-例如列表推导-我认为这是指map/grep（List::Util和reduce？）
有人能帮我填空吗？上面提到的哪些是Perl易于实现的（是否有简单的例子），还有哪些方面它不擅长？
在计算机科学中，如果一种编程语言将函数视为一等公民，则称其具有一等函数。具体而言，这意味着该语言支持将函数作为参数传递给其他函数，从其他函数返回它们作为值，并将它们分配给变量或存储在数据结构中。
所以在Perl中：
my $print_something = sub { print "Something\n" };
sub do_something {
my ($function) = @_;
$function->();
}
do_something($print_something);
在数学和计算机科学中，高阶函数（也称为函数形式、函数或函数子）是执行以下至少一项操作的函数：
将一个或多个函数作为输入
输出一个函数
在Perl术语中，我们经常将它们称为回调、工厂以及返回代码引用的函数（通常是闭包）。
在Perl FAQ中，我们有关于什么是闭包？的问题：
sub make_hello_printer {
my $message = "Hello, world!";
return sub { print $message; }
}
my $print_hello = make_hello_printer();
$print_hello->()
在纯函数语言和本页面的上下文中，模式匹配是一种分派机制：选择正确的函数变体进行调用。受标准数学符号启发。
分派表是最接近的近似值 - 本质上是匿名子例程或代码引用的哈希。
use strict;
use warnings;
sub do_it {
print join( ":", @_ );
}
my $dispatch = {
'onething' => sub { print @_; },
'another_thing' => \&do_it,
};
$dispatch->{'onething'}->("fish");
因为它只是一个哈希，你也可以添加代码引用和匿名子例程。(注意-与面向对象编程有些相似)
在纯函数式语言中，任何更改现有值的分配（例如 x := x + 1）都是不允许的。在函数式编程中，分配被弃用，而使用单一分配，也称为初始化。单一赋值是名称绑定的一个示例，并且与本文中描述的分配不同之处在于它只能在变量创建时执行一次；不允许后续重新分配。
我不确定perl是否真正做到了这一点。最接近的近似可能是引用/匿名子例程或者常数。
perldoc perlref中有所涉及。dualvars来重载标量以执行不同的操作。
尾调用优化（或尾调用合并或尾调用消除）是尾递归的一般化：如果一个函数在返回之前做的最后一件事是调用另一个函数，那么它应该安全地直接跳转到第二个函数的开头，让它重复使用第一个函数的堆栈帧（环境）。
它会工作，但如果递归深度>100，则会发出警告。您可以通过添加以下内容来禁用此功能：
no warnings 'recursion';
但是，显然你需要对递归深度和内存占用略加谨慎。
据我所知，没有任何特定的优化方法，如果你想以高效的方式完成这样的任务，可能需要将递归展开并进行迭代。
Perl支持尾调用。可以查看goto ⊂符号，或者查看由
Sub::Call::Tail提供的更简洁的语法。
列表推导是许多现代函数式编程语言的一个特性。在一定的规则下，它们为生成列表中的元素提供了简洁的表示法。列表推导是concat、map和filter函数的语法糖组合。
Perl有map、grep、reduce。
它还能处理范围和重复的扩展：
my @letters = ( "a" .. "z" );
所以你可以：
my %letters = map { $_ => 1 } ( "A" .. "z" );
List::Utils是核心模块）...不行，我还是对这些有困难。它要么比我理解的简单得多，要么比我理解的复杂得多。
如果有人有更多的东西，请加入或编辑此帖子或......什么的。我对涉及的一些概念仍然很模糊，所以这篇文章更像是一个起点。
final或C/C++的const）。我也没有看到真正的解决方法。 - reinierpost非常好的话题，我想写一篇标题为“骆驼很实用”的文章。让我贡献一些代码。
Perl 也支持像这样的匿名函数
sub check_config {
my ( $class, $obj ) = @_;
my $separator = ' > ';
# Build message from class namespace.
my $message = join $separator, ( split '::', $class );
# Use provided object $obj or
# create an instance of class with defaults, provided by configuration.
my $object = $obj || $class->new;
# Return a Function.
return sub {
my $attribute = shift;
# Compare attribute with configuration,
# just to ensure it is read from there.
is $object->config->{$attribute},
# Call attribute accessor so it is read from config,
# and validated by type checking.
$object->$attribute,
# Build message with attribute.
join $separator, ( $message, $attribute );
}
}
sub check_config_attributes {
my ( $class, $obj ) = @_;
return sub {
my $attributes = shift;
check_config( $class, $obj )->($_) for (@$attributes);
}
}