Perl sub 返回一个子程序

Question

我已经有 20 年没有使用 Perl 了，这让我很困惑。我已经 g******d 了，但我显然没有使用合适的搜索字符串，因为我没有找到任何与此相关的内容......

我为什么要执行以下操作？我明白它在做什么，但“为什么”让我无法理解。为什么不直接返回 0 或 1 开始呢？

我正在编写一些代码，其中 sub 使用“return sub”；这是一个非常截断的例子，例如

sub test1 {
  $a = shift @_;

  if ($a eq "cat") {
    return sub {
      print("cat test OK\n");
      return 0;
      }
  }
# default if "cat" wasn't the argument
  return sub {
    print("test for cat did not work\n");
    return 1;
    }
}

$c = test1("cat");
print ("received: $c\n");
print ("value is: ",&$c,"\n");

$c = test1("bat");
print ("received: $c\n");
print ("value is: ",&$c,"\n");

Answer 1

在您的代码中没有理由返回一个子。但是，稍微调整一下

sub test1 {
    my $animal = shift @_;

    if ($animal eq "cat"  || $animal eq "dog") {
        return sub {
            print("$animal test OK\n");
            return 0;
        };
    }

    # default if "cat" or "dog" wasn't the argument
    return sub {
        print("test for cat or dog did not work\n");
        return 1;
    };
}

我们现在有一个围绕$animal 的闭包，这可以节省内存，因为猫和狗的测试共享相同的代码。请注意，这只适用于我的变量。另请注意，$a 和 $b 对 Perl 来说有点特殊，它们用于您可以传递给排序函数并绕过一些可见性检查的代码块中，因此除了排序之外最好避免使用它们。

Answer 2

您可能想搜索“perl 闭包”。

您想要返回代码引用的原因有很多，但这不是我可以在 StackOverflow 问题中简短回答的问题。 Mark Jason Dominus 的Higher Order Perl 是拓展思维的好方法，我们在Intermediate Perl 中介绍了其中的一些内容。

我写了File::Find::Closures 来证明这是类。该模块中的每个子例程都返回两个代码引用——一个用于回调File::Find，另一个用于访问结果。两者共享一个公共变量，其他任何人都无法访问。

请注意，在您的情况下，您不仅仅是调用子例程来“获得零”。它在做其他事情。即使在您的简单示例中，也有一些输出。然后某些行为会被延迟，直到您实际将结果用于某事。

话虽如此，但我们无法理解编写您的特定代码的程序员为什么会这样做。一个合理的猜测是该系统是为更复杂的情况而设置的，而您正在查看一个适合该情况的简单示例。另一个合理的猜测是，程序员刚刚学会了这个特性并爱上了它，然后在任何地方都使用了一年。总是有原因的，但这并不意味着总是有充分的理由。