javascript - 用 perl 术语解释 JS 闭包

Question

我完全理解 perl 的闭包是如何工作的，就像下一个一样

use 5.012;
use strict;
use warnings;

sub countdown {
        my $start = shift;
        return sub { $start-- }
}

my $c10 = countdown(3);
say while( $_ = $c10->() );

我正在尝试理解下一段 Javascript:

var runInSandbox = (function(js, inputPath) {

  (function() {
    if ((!context.initialized__QUERY)) {
      return createContext();
    };
  })();
  (function() {
    if (typeof(inputPath) !== 'undefined') {
      (process.argv)[1] = inputPath;;
      (context)["__dirname"] = path.dirname(inputPath);;
      return (module)["filename"] = inputPath;;
    };
  })();
  return vm.runInContext(js, context, "sibilant");
});

没有机会! :( 请 有人可以将上面的代码重写为 perl 吗？我知道 perl a bit - 所以对我来说对于理解 JS 基础知识和结构非常有用，比如:

(...)() - more precisely
(function(){.....})()

double (( 在 if 中

    if ((!context.initialized__QUERY)) {

或下一个

      (context)["__dirname"] = something ;;

或

       return (module)["filename"] = inputPath;; // why double ;;?

如果有人可以向我推荐任何资源，例如:Learning Javascript for perl programmers - 会非常好 ;)

Ps:JS(缩写)来自这里:https://github.com/jbr/sibilant/blob/master/lib/cli.js

Answer 1

我不是非常精通 Perl 闭包，所以我至少会尝试为您揭开它的神秘面纱。

形式:

(function(...) {
 ...
})();

是一个自调用的匿名函数¹。这意味着您写出一个匿名函数，然后立即调用它。这通常用于封装²。例如，如果您最终创建了一堆变量，但不希望它污染全局命名空间，您可以将它放在一个匿名的、自调用的函数中。但是，在这种情况下，我根本不明白为什么第一次调用是必要的，因为它只是检查一个标志或其他东西。更奇怪的是那些自调用函数中的return。他们没有被分配到任何东西。我会冒险猜测 createContext() 初始化了 context 变量，但是其中的 return 实际上是无用的。以下内容也是如此:

return (module)["filename"] = inputPath;;

至于双(( and ))，它们似乎在很大程度上是不必要的，所以我不确定为什么作者最初把它放在那里。例如:

if ((!context.initialized__QUERY)) 

没有什么不同:

if (!context.initialized__QUERY) 

此外，下面的括号和双分号也是不必要的:

(context)["__dirname"] = something ;;

老实说，它看起来像是写得不好的 Javascript，或者可能是自动生成的 JavaScript(很可能是这种情况)。

你可以这样重写它:

var runInSandbox = function(js, inputPath) {

    if (!context.initialized__QUERY) {
       createContext();
    };

    if (typeof inputPath !== 'undefined') {
       process.argv[1] = inputPath;
       context["__dirname"] = path.dirname(inputPath);
       module["filename"] = inputPath;
    };

    return vm.runInContext(js, context, "sibilant");
};

---

注意事项:

1. 在 Perl 中，这将是 sub { ... }->()。
2. 在 Perl 中，可以使用 { my $var; ... } 而不是 sub { my $var; ... }->() 和 do { my $var; ...; EXPR } 而不是 sub { my $var; ...;返回表达式； }->().