Perl中调用命名匿名函数与常规子程序的差异

先看你给出的两段实现代码：

匿名函数版本 #

my $read_file = sub {
    my ($filename) = @_;
    my @lines;
    
    open my $fh, '<:raw', $filename or die "Can't open file $filename: $!";
    while (my $line = <$fh>) {
        chomp $line;
        push @lines, $line;
    }
    close $fh;
    return @lines;
};

普通子例程版本 #

sub read_file {
    my ($filename) = @_;
    my @lines;
    
    open my $fh, '<:raw', $filename or die "Can't open file $filename: $!";
    while (my $line = <$fh>) {
        chomp $line;
        push @lines, $line;
    }
    close $fh;
    return @lines;
}

两者的核心调用差异主要体现在以下几点：

• 调用语法不同
  匿名函数存储在标量变量中，调用必须使用箭头语法->()或者&前缀：

  # 推荐的箭头调用方式
  my @lines = $read_file->("test.txt");
  # &前缀调用方式
  my @lines = &$read_file("test.txt");
  

  普通子例程直接通过名称调用即可，无需额外语法：

  my @lines = read_file("test.txt");
  

• 作用域与生命周期不同
  匿名函数的作用域完全绑定到变量$read_file的作用域——如果在某个代码块（比如if判断、for循环或子例程内部）定义，出了这个块就无法访问。
  普通子例程默认是全局作用域（属于当前包），只要在包内或完成导入，任何位置都能调用。

• 引用传递与回调适配不同
  匿名函数本身就是代码引用，可以直接把变量$read_file传给其他需要回调的子例程：

  # 将匿名函数作为参数传递
  sub process {
      my ($callback, $file) = @_;
      $callback->($file);
  }
  process($read_file, "data.txt");
  

  普通子例程要作为回调传递，必须先显式取引用：

  process(\&read_file, "data.txt");
  

• 动态修改灵活性不同
  匿名函数可以在运行时随时重新赋值，替换逻辑：

  # 后续修改$read_file指向新的匿名函数
  $read_file = sub {
      my ($filename) = @_;
      return scalar reverse do { local $/; open my $fh, '<:raw', $filename or die $!; <$fh> };
  };
  

  普通子例程的修改需要操作符号表，风险高且不常用，一般不推荐。

内容的提问来源于stack exchange，提问作者Dima